Scripting: browse for data files in a folder and all subfolders below

Question

Hello,
i'm looking for a command to search for data files (*.dat) in a folder and all subfolders below.
I checked out command DirListGet. This command only search in the declared folder and not in the subfolders below.
Anyone an idea?
I don't want to use a loop-structure for finding subfolders and browse for the data files.
Mr. Buddy

Answer 1

dim result : result = DirListGet("C:\tmp", "*.dat", "filename", "FullFilenamesRecursive")
dim fl : for each fl in result
MsgBox fl
Next
Works fine for me and even recursive.
Alternatively but with mucg more effort and the same result.
Option Explicit 'Forces the explicit declaration of all the variables in a script.
dim folderPath : folderPath = "C:\tmp"
dim files : files = GetFileListRecursive(folderPath)
dim fl : for each fl in files
MsgBox fl
Next
Function GetFileListRecursive(folderPath)
dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
dim results : results = Array()
GetFiles fso, folderPath, results
GetFileListRecursive = results
End Function
Sub GetFiles(fso, folderPath, results)
dim folderObj : Set folderObj = fso.GetFolder(folderPath)
dim f : for Each f In folderObj.Files
if(0 = StrComp(fso.GetExtensionName(f), "dat", 1)) then
dim index : index = ubound(results) + 1
redim Preserve results(index)
results(index) = f.Path
End If
next
dim d : for Each d In folderObj.SubFolders
GetFiles fso, d.Path, results
next
End sub