Поиск файлов по заданному расширению

Const cpath = 'C: '
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