Written by:R Teachout
11/22/2006 4:43 PM

VBScript: Traverse Directories & Subdirectories Snippet

>> This snippet will come in handy quite a few times…

Call ListFolderContents("C:\Windows\System32\Drivers")
 
Sub ListFolderContents(path)
     set fs = CreateObject("Scripting.FileSystemObject")
     set folder = fs.GetFolder(path)
         Msgbox folder.path
    
         For each item in folder.SubFolders
                  ListFolderContents(item.Path)
         Next
End Sub

TrackbackPrint

Location: BlogsRamblings, Scriptlets, and more!VBS / Administration Scriptlets