Главная > WSH скрипты > Список подкатологов в текстовый файл
Список подкатологов в текстовый файл30 марта 2012. Разместил: dimon |
В файл записываем список подкаталогов первого уровня.
'---------------------------------------------------------------------- ' ' 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 Вернуться назад |