Список файлов в каталоге в текстовый файл

'----------------------------------------------------------------------
'
' Copyright (c)  All rights reserved.
'
'
' AUTHOR: tudimon.com
' DATE: 04.04.2012
' NAME: FilesInFolderList.vbs
'
' COMMENT:
'
' В файл записывается список файлов в указанном каталоге
' без учета подпапок и папок
'
'----------------------------------------------------------------------

StartPath = "C:\Downloads"                        ' Стартовая папка, просматриваем вложенные в нее папки первого уровня (без слэша на конце)
LogFilePath = "c:\FilesInFolderList_log.log"    ' лог-файл
LogTXT = ""                                     ' переменная для записи в лог


'----------------------------------------------------------------------

LogTXT = LogTXT & vbNewLine & "******************** " & Now & " ********************"



Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(StartPath)
Set colFiles = objFolder.Files
For Each objFiles in colFiles
LogTXT = LogTXT & vbNewLine & objFiles.Path
Next


' Пишем лог
Set FSO = CreateObject("Scripting.FileSystemObject")
Set LogFile = FSO.OpenTextFile(LogFilePath, 8, True)
LogTXT = LogTXT & vbNewLine & "*************************************************************"
LogFile.WriteLine LogTXT
LogFile.Close

WScript.Quit 0