Click here to Skip to main content
Click here to Skip to main content

VBScript directory crawler

, 16 May 2000
Rate this:
Please Sign up or sign in to vote.
A VBScript program that can recursively walk directories and also create a true working tree (good for printouts)
  • Download source files - 1 Kb

    Sample Image - walker.jpg

    This VBScript can be used in a number of ways. At its heart, it's a simple directory tree walker. I wrote it originally as a DevStudio macro to clear out all the big leftover files in the debug and release folders. I added a bit of code to it on a whim to make it to indent the subfolders and add the various lines so that in the end it looks similar to the left hand frame of explorer. This can then be piped to a file and printed (have you ever wanted to print out a directory tree? I know I have.)

    I have commented where you could put code to do things like clear out temp files, whatever.

    Enjoy Smile | :)

  • License

    This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

    A list of licenses authors might use can be found here

    Share

    About the Author

    Ron Olson
    Web Developer
    United States United States
    No Biography provided

    Comments and Discussions

     
    GeneralDocument Properties help PinsussLen Inkster26-Jul-05 8:40 
    GeneralRe: Document Properties help PinsussMathew Gorge27-Jul-05 21:28 
    'VBScript file to get the author and comments
    'Tested with Word 2000
     
    Dim strAuthor, strComments
     
    Set objWord = CreateObject("Word.Application") 'Open an instance of Word
     
    'Open an word document and return the "Documents" object
    Set objDoc = objWord.Documents.Open("D:\Debug\Test1.doc")
     
    strAuthor = objWord.ActiveDocument.BuiltInDocumentProperties(3) 'wdPropertyAuthor
    strComments = objWord.ActiveDocument.BuiltInDocumentProperties(5) 'wdPropertyComments
     
    MsgBox "This document's author is " & strAuthor & vbCrLf &" Comments: " & strComments
     
    'msgbox objWord.Version
     
    'To avoid the "Do you want to save your changes?" dialog box, the script
    'sets the Saved property to TRUE before terminating Word.
    objDoc.Saved = TRUE
    objWord.Quit
     

    =========================
    Do not look into FSO because they can only read the binary format of word.
    Use COM to access method of word
     
    Refer MSDN for reference
    QuestionWhy it Fails? Pinmemberdougcranston27-Feb-03 4:50 
    AnswerRe: Why it Fails? PinmemberJim Smith15-Oct-04 8:09 
    GeneralRe: Why it Fails? Pinmemberdougcranston15-Oct-04 8:18 
    GeneralRe: Why it Fails? PinsussAnonymous14-Sep-05 14:32 
    GeneralShow pictures from a dir on a html-page PinmemberPBA20-Feb-02 0:43 
    GeneralSearchinf for a particular extension using VBscript PinsussGnanavel9-Oct-00 20:42 
    GeneralRe: Searchinf for a particular extension using VBscript Pinmemberdzb00724-Nov-00 8:21 
    GeneralNice! + More on scripts PinsussPhilippe Lhoste23-May-00 22:59 

    General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

    Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

    | Advertise | Privacy | Mobile
    Web03 | 2.8.140827.1 | Last Updated 17 May 2000
    Article Copyright 2000 by Ron Olson
    Everything else Copyright © CodeProject, 1999-2014
    Terms of Service
    Layout: fixed | fluid