List Files with directory names and write to a log

[thockman]

Code: Select all

Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForAppending = 2
Dim objFSO:Set objFSO = CreateObject("Scripting.FileSystemObject")

LogFile = "c:\temp\fslist.log"
Dim objLogFile:Set objLogFile = objFSO.CreateTextFile(logfile, 2, True)

objStartFolder = "C:\temp"

Set objFolder = objFSO.GetFolder(objStartFolder)
objLogFile.Write objFolder.Path
objLogFile.Writeline
Set colFiles = objFolder.Files
For Each objFile in colFiles
    objLogFile.Write objFolder & "\" & objFile.Name
    objLogFile.Writeline
Next


ShowSubfolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        objLogFile.Write Subfolder.Path
        objLogFile.Writeline
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        Set colFiles = objFolder.Files
        For Each objFile in colFiles
            objLogFile.Write objFolder & "\" & objFile.Name
            objLogFile.Writeline
        Next
        ShowSubFolders Subfolder
    Next
End Sub

objLogFile.Close