dcsimg
Login | Register   
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: VBscript
Expertise: Advanced
Jan 31, 2005

WEBINAR:

On-Demand

Application Security Testing: An Integral Part of DevOps


Display All the Subfolders Within a Folder Using VBscript

You can use VBscript's Filesystemobject to list all the subfolders in a folder. Create a text file called showfolderlist.vbs and enter the following code:

showfolderlist <dirextory that you want to list>

eg showfolderlist "c:\windows"
The Showfolderlist procedure uses the Filesystemobject to traverse through all the subdirectories and display them:

Sub ShowFolderList(folderspec)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.SubFolders
    For Each f1 in fc
        s = s & f1.name 
        s = s &  vbCrLf
    Next
    MsgBox s
End Sub
To run the program, just double-click on the showfolderlist.vbs file.

Parthasarathy Mandayam
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
×
We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.
Thanks for your registration, follow us on our social networks to keep up-to-date