scanFolder('C:\Fox') function scanFolder(tcFolderPath) local loRootFolder, loFolder, loFSO loFSO = Createobject('Scripting.FileSystemObject') loRootFolder = loFSO.getFolder(tcFolderPath) scanSubFolders(loRootFolder) procedure scanSubFolders(toRootFolder) local loFolder for each loFolder in toRootFolder.SubFolders ? loFolder.Path scanSubFolders(loFolder) endfor endprocof course instead of ? loFolder.Path, you can try to create your file there