Move File name .IMD

Hi Ahmed, here is some example code that allows you to pick and file and then pick a folder and then it moves the file to the new folder.  I have also attached the script.

Option Explicit

Dim sFilename As String
Dim sDestinationPath As String

Sub Main

	Call getFileToMove()
	Call getFolderToMoveTo()
	Call moveFile()

End Sub

Function moveFile()
	Dim pm As Object
	
	' Run task on the current Desktop project.
	Client.RunAtServer False
	
	' Access the project management object.
	Set pm = Client.ProjectManagement
	
		' Move a file from the current Desktop project to another local directory.
		
		pm.MoveDatabase sFilename, sDestinationPath
		' Refresh the File Explorer.
		
		Client.RefreshFileExplorer
		
		' Clear the path.
	
	Set pm = Nothing
End Function

Function getFolderToMoveTo()
	Dim BrowseFolder As String
	Dim oFolder As Object
	Dim oFolderItem As Object
	Dim oPath As String
	Dim oShell As Object
	Dim strPath As String
	
	Set oShell = CreateObject( "Shell.Application" )
	Set oFolder = oShell.Namespace(17) 'the 17 indicates that we are looking at the virtual folder that contains everything on the local computer
	Set oFolderItem = oFolder.Self
	strPath = oFolderItem.Path
	Set oFolder = oShell.BrowseForFolder(0, "Please select the folder where the files are located:", 1, strPath)
	If (Not oFolder is Nothing) Then
		Set oFolderItem = oFolder.Self
			oPath = oFolderItem.Path
			
			If Right(oPath, 1) <> "\" Then
				oPath = oPath & "\"
			End If
	
	End If
	
	sDestinationPath = oPath
End Function

Function getFileToMove()
	Dim obj As Object
	Set obj = client.CommonDialogs
		sFilename = obj.FileExplorer()
	Set obj = Nothing
End Function

Greetings,
I am new to the IDEA scripting world. Is there a script to select IMD file from a specific folder for testing? i am currently running testing on several statements in iDEA and would like to select them individually for testing. additionally is there a way to change the name of the IDEA result database?
Thank you for your assistance.

I was trying to run the following script and kept geting the error on line 101 databsase exist or is in use. I just wanted to be able to select a database and conduct a direect extraction based on charges greater than 0.00.
Regards,