Set objFSO = CreateObject("Scripting.FileSystemObject")

objStartFolder = "C:\Scripts"

Set objFolder = objFSO.GetFolder(objStartFolder)

Wscript.Echo objFolder.Path

Set colFiles = objFolder.Files

For Each objFile in colFiles

    Wscript.Echo objFile.Name

Next

Wscript.Echo


ShowSubfolders objFSO.GetFolder(objStartFolder)


Sub ShowSubFolders(Folder)

    For Each Subfolder in Folder.SubFolders

        Wscript.Echo Subfolder.Path

        Set objFolder = objFSO.GetFolder(Subfolder.Path)

        Set colFiles = objFolder.Files

        For Each objFile in colFiles

            Wscript.Echo objFile.Name

        Next

        Wscript.Echo

        ShowSubFolders Subfolder

    Next

End Sub