How to load an entire directory into DiAdem

[Meky]

I can load my individual .ADF files by calling DataFileLoad but I have about 120 files in three folders in one parent folder. 

Is their a way to search for all these files (perhaps using the datafinder which I configured for .adf files) and then load them all together?

Thanks, 

Omar

[AndreasK · Accepted solution]

dim result : result = DirListGet("C:\tmp", "*.adf", "filename", "FullFilenamesRecursive")
dim fl : for each fl in result
  DataFileImport fl
Next

or using Datafinder which can be used to with more than file extension to deterermine which files to load.

Dim DataFinder : Set DataFinder = Navigator.ConnectDataFinder("My DataFinder")
Dim Query : Set Query = DataFinder.CreateQuery(eAdvancedQuery)
Call Query.Conditions.Add(eSearchFile, "folder", "=", "C:\tmp\*")
Call Query.Conditions.Add(eSearchFile, "fileName", "=", "*.adf")
DataFinder.Search(Query)

Dim File
For each File in DataFinder.Results
  DataFileImport File.Properties("fullpath").Value
Next

[Meky]

Thanks, that was really helpful!