Re: Looking for a dos command

[Geoff Lane <geoff -at- gjctech -dot- co -dot- uk>]

On Wednesday, August 16, 2006, John Posada wrote;

> Geoff...this was almost perfect and I feel guilty even asking...but,
> can you suppress the directory?
---

The final version follows. I've cleaned up the script a bit and added
another command-line parameter. As before, call with:

wscript listfiles.vbs /dir:<dir to walk> /listfile:<dump file>

By default, the script suppresses the path to each file. However, you
can now include the paths by passing the parameter /path:yes. That is:

wscript listfiles.vbs /dir:<dir to walk> /listfile:<dump file> /path:yes

--------------8<-------------------------
Const ROOTFOLDER = "C:\"
Const LISTFILE = "C:\listfile.txt"

Sub ParseFolder(objFolder)
  Dim objFile, strPath, strLine
  strPath = objFolder.Path
  For Each objFile In objFolder.Files
    If bPath Then
      strLine = strPath & "\"
    Else
      strLine = ""
    End If
    strLine = strLine & objFile.Name & Chr(9) & objFile.Size
    fTarget.WriteLine strLine
  Next

  Dim objSubFolder
  For Each objSubFolder In objFolder.SubFolders
    ParseFolder objSubFolder
  Next
  
End Sub

'-----------------[ MAIN ]---------------------
Dim fso, objSubFolders, objFolder, fTarget
Dim strTarget, strRootFolder, bPath

If WScript.Arguments.Named.Exists("dir") Then
  strRootFolder = WScript.Arguments.Named("dir")
Else
  strRootFolder = ROOTFOLDER
End If
If WScript.Arguments.Named.Exists("listfile") Then
  strTarget = WScript.Arguments.Named("listfile")
Else
  strTarget = LISTFILE
End If
If WScript.Arguments.Named.Exists("path") Then
  bPath = True
Else
  bPath = False
End If

Set fso = CreateObject("Scripting.FileSystemObject")
Set fTarget = fso.OpenTextFile(strTarget, 2, True)
Set objFolder = fso.GetFolder(strRootFolder)
ParseFolder objFolder
fTarget.Close
Set fTarget = Nothing
Set objFolder = Nothing
Set fso = Nothing
----------------8<-----------------------

HTH,

-- 
Geoff

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

WebWorks ePublisher Pro for Word features support for every major Help 
format plus PDF, HTML and more. Flexible, precise, and efficient content 
delivery. Try it today! http://www.webworks.com/techwr-l

Easily create HTML or Microsoft Word content and convert to any popular Help file format or printed documentation. Learn more at http://www.DocToHelp.com/TechwrlList

---
You are currently subscribed to TECHWR-L as archive -at- infoinfocus -dot- com -dot- 

To unsubscribe send a blank email to 
techwr-l-unsubscribe -at- lists -dot- techwr-l -dot- com
or visit http://lists.techwr-l.com/mailman/options/techwr-l/archive%40infoinfocus.com


To subscribe, send a blank email to techwr-l-join -at- lists -dot- techwr-l -dot- com

Send administrative questions to lisa -at- techwr-l -dot- com -dot-  Visit
http://www.techwr-l.com/techwhirl/ for more resources and info.