IDEA Script extract data off IDEA Server or other servers

Sorry Aveen, html sometimes likes to change & to & to protect the code.  I think I found the errors and corrected them in the script.

Aveen you will have to change the following line from:

Client.ImportDelimFile filename, dbName, FALSE, "", "D:\Data\test\Detailed Time Code-1.RDF", TRUE

to

Client.ImportPrintReport "D:\Data\test\Detailed Time Code-1.jpm", filename, dbname, FALSE

Aveen, I will have a look at it tonight and get back to you.

Aveen, this works, you were missing a \ in the FOLDER variable. Also makes sure the EXTENSION variable is the extension of the files you want to import, they should all be the same. Also I changed the import instruction to use the JPM variable for the template, make sure the name is correct and it is store in that location.

Option Explicit
Option Base 1 'arrays start at 1
Const FOLDER = "C:\Users\amahado\Desktop\Microsoft Data\Test Run\"
Const EXTENSION = "*.del"
Const JPM =  "C:\Users\amahado\Desktop\Microsoft Data\Test Run\New Template.jpm"
Dim workingFolder As String
Dim sFiles() As String 'to hold the files
Sub Main 
	workingFolder =Client.WorkingDirectory() 
	Call importFiles()
	client.refreshFileExplorer
End Sub
Function importFiles() 
	Dim Files As String 
	Dim filename As String 
	Dim dbName As String 
	Files = Dir(FOLDER & EXTENSION) 
	Dim bFirstPassInd As Boolean  
	bFirstPassInd = true 
	ReDim sFiles(1)
	 ' While a call to Dir() continues to return file names. 
	 Do  
	 	' Get the next file name and place it in FileList.  
	 	If Len(Files) >1 Then  
	 		
	 		filename = Mid(Files, 1, InStr(1, Files, ".") - 1)      
	 		dbName = filename & ".IMD"   
	 		If bFirstPassInd Then    
	 			bFirstPassInd = False   
	 		Else   
	 		 	ReDim preserve sFiles(UBound(sFiles) + 1)   
	 		End If   
	 		sFiles(UBound(sFiles)) = FOLDER & dbName   
	 		 filename = FOLDER & Files   
	 		Client.ImportPrintReport JPM, filename, dbname, FALSE   ' 
	 		Client.OpenDatabase (dbName)  
	 	End If  
	 	Files = Dir 
	 Loop While Files <> ""
End Function