Click here to Skip to main content
11,496,146 members (606 online)
Click here to Skip to main content

VBScript directory crawler

, 16 May 2000 109.2K 2.1K 27
A VBScript program that can recursively walk directories and also create a true working tree (good for printouts)
The site is currently in read-only mode for maintenance. Posting of new items will be available again shortly.
  • 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 Pin
    Len Inkster26-Jul-05 9:40
    sussLen Inkster26-Jul-05 9:40 
    GeneralRe: Document Properties help Pin
    Mathew Gorge27-Jul-05 22:28
    sussMathew Gorge27-Jul-05 22: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? Pin
    dougcranston27-Feb-03 5:50
    memberdougcranston27-Feb-03 5:50 
    AnswerRe: Why it Fails? Pin
    Jim Smith15-Oct-04 9:09
    memberJim Smith15-Oct-04 9:09 
    GeneralRe: Why it Fails? Pin
    dougcranston15-Oct-04 9:18
    memberdougcranston15-Oct-04 9:18 
    GeneralRe: Why it Fails? Pin
    Anonymous14-Sep-05 15:32
    sussAnonymous14-Sep-05 15:32 
    GeneralShow pictures from a dir on a html-page Pin
    PBA20-Feb-02 1:43
    memberPBA20-Feb-02 1:43 
    GeneralSearchinf for a particular extension using VBscript Pin
    Gnanavel9-Oct-00 21:42
    sussGnanavel9-Oct-00 21:42 
    GeneralRe: Searchinf for a particular extension using VBscript Pin
    dzb00724-Nov-00 9:21
    memberdzb00724-Nov-00 9:21 
    GeneralNice! + More on scripts Pin
    Philippe Lhoste23-May-00 23:59
    sussPhilippe Lhoste23-May-00 23: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 | Terms of Use | Mobile
    Web03 | 2.8.150520.1 | Last Updated 17 May 2000
    Article Copyright 2000 by Ron Olson
    Everything else Copyright © CodeProject, 1999-2015
    Layout: fixed | fluid