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
