[VBSCRIPT] lista ricorsiva di tutti i file e sotto cartelle in una direcotry

Lo script seguente, in VbScript, stampa una lista di tutti i file e le sotto-directory contenuti in una cartella.
La parte dei singoli files, in questo esempio, è stata commentata per ottenere solo una lista di tutte le sotto-cartelle

[php]

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "Z:\Data"

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

[/php]

lista file e cartelle contenuti in una directory, lista recursive file e cartelle, vbscript lista tutti file e cartelle contenuti in una directory, vbscript list recursive file ad folder, lista file vbscript