■

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 = fileList & VbCrLf
Next

For Each objSubFolder In objFolder.SubFolders

    For Each objFile In objSubFolder.Files
        fileList = fileList & objFile.Path
        fileList = fileList & VbCrLf
    Next

Next

WScript.Echo fileList