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