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

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


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

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



Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(StartPath)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
LogTXT = LogTXT & vbNewLine & objSubfolder.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