Dim setpath setpath = "C:\foo" Dim fileList Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(setpath) For Each objFile In objFolder.Files fileList = fileList & objFile.Path fileList = fileLis…