By 3 Novembre 2014

[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


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

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

Posted in: Vbscript, Windows Server

About the Author:

shared on wplocker.com