Archive for May, 2009

Const ForAppending = 8

Set objFSO = CreateObject(”Scripting.FileSystemObject”)

resLog = “r35uLt.log”

objStartFolder = InputBox (”Enter Folder Path :” & vbCRLF & _
vbCRLF & “\\servername\path to folder”, “Create File List”)

If Len(objStartFolder) = 0 Then
MsgBox “A valid path must be entered.”, _
64, “Create File List”
WScript.Quit(0)
End If

If objFSO.FileExists(objStartFolder & “\” & resLog) = False Then
objFSO.CreateTextFile objStartFolder & “\” & resLog
End if

Set oFile = objFSO.OpenTextFile(objStartFolder & “\” & resLog, ForAppending)

Set objFolder = objFSO.GetFolder(objStartFolder)
oFile.WriteLine objFolder.Path & Chr(59)
Set colFiles = objFolder.Files

For Each objFile in colFiles
oFile.WriteLine objFile.Name & Chr(59)
Next

ShowSubfolders objFSO.GetFolder(objStartFolder)
oFile.Close

MsgBox “File List created :” & vbCRLF & vbCRLF & _
objStartFolder & “\” & resLog, 64, “Create File List”

Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
oFile.WriteLine Subfolder.Path & Chr(59)
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
oFile.WriteLine objFile.Name & Chr(59)
Next

ShowSubFolders Subfolder
Next
End Sub

Posted by admin on May 24, 2009 at 4:41 am under Programming, VB Script.
2 Comments.