Const cpath = "\\Server1\SETUP\AUBI2000\Update_20040408\"
Const cFile = "C:\Log\"
Dim fsys
Dim oTextStream
Dim sfile

Set fsys = CreateObject("Scripting.FileSystemObject")
sfile = cFile & Replace(cstr(Now()),":",".") & ".log"
Set oTextStream = fsys.CreateTextFile(sfile, True)
Call scanfolder(cpath, "")
call MsgBox("Создание протокола завершено.",,"CreateLog")

Sub scanfolder(folderspec, otstup)
Dim thisfolder
Dim sfolders
Dim fileitem, folderitem
Dim AllFiles
    Set thisfolder = fsys.GetFolder(folderspec)
    Set sfolders = thisfolder.SubFolders
    Set AllFiles = thisfolder.Files
    For Each folderitem In sfolders
        Call oTextStream.WriteLine(_
		otstup & "Папка: " & folderitem.Name & " " & _
		folderitem.Size & " " & _
		folderitem.DateCreated & " " & _
		folderitem.DateLastModified & " " & _
		folderitem.DateLastAccessed)
        Call scanfolder(folderitem.path, otstup & "   ")
    Next
    For Each fileitem In AllFiles
        Call oTextStream.WriteLine( _
		otstup & fileitem.Name & " " & _
		fileitem.Size & " " & _
		fileitem.DateCreated & " " & _
		fileitem.DateLastModified & " " & _
		fileitem.DateLastAccessed)
    Next
End Sub