'---------------------------------------------------------------------- ' ' 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 = "" ' переменная для записи в лог
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
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Чтобы Вам были доступны все функции Вам необходимо либо зарегистрироваться, либо зайти на сайт под своим именем.
Группа: Журналисты
Регистрация: 25.08.2008
Статус: