REM ==============================
REM Fichier : list_folders_recursively.vbs
REM Desc : How Can I Get a List of All the Files in a Folder and Its Subfolders?
REM Source : http://tinyurl.com/nfyvtp
REM ==============================
dim nbd, nbf
Set objFSO = CreateObject("Scripting.FileSystemObject")
list_files_folders_recursively "c:\"
Sub list_files_folders_recursively(objStartFolder)
Set objFolder = objFSO.GetFolder(objStartFolder)
Wscript.Echo objFolder.Path
Set colFiles = objFolder.Files
For Each objFile in colFiles
'Wscript.Echo objFile.Name
nbf=nbf+1
Next
Wscript.Echo
ShowSubfolders objFSO.GetFolder(objStartFolder)
Wscript.Echo _
"Fichiers : " & nbf & vbcrlf & _
"Dossiers : " & nbd
End Sub
Sub ShowSubFolders(Folder)
nbd=nbd+1
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
nbf=nbf+1
Next
ShowSubFolders Subfolder
Next
End Sub