ORIGINALLY POSTED BY DINO FOR THETAZZONE/TAZFORUM HERE

Do not use, republish, in whole or in part, without the consent of the Author. TheTAZZone policy is that Authors retain the rights to the work they submit and/or post…we do not sell, publish, transmit, or have the right to give permission for such…TheTAZZone merely retains the right to use, retain, and publish submitted work within it’s Network

Please refer to the original post as not all the script may be visible here.

Sometimes I just need to quickly bomb through a directory.

Code: Select all
'# GLOBALS ##########################################################################
Dim   intCounter

'#########################################################################
Private Sub TraverseDir(objFolder)
Dim objFile
For Each objFile in objFolder.Files
WScript.Echo "Checking file: "& objFile.Path
intCounter = intCounter + 1
Next

By admin

Former Freehand Freelance Graphic Illustrator... been online since 2004 ( late starter ), blogging since 2005, presently writing a suspense-thriller e-book that began as a screenplay.

Leave a Reply

Your email address will not be published. Required fields are marked *