Dim setpath setpath = "C:\foo" Dim fileList Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(setpath) Call MakeFilePathList(objFolder, fileList) Call OutPutText(fileList) sub MakeFilePathList…