' Создает файл-список всех папок и подпапок в выделенных директориях
' Параметр %WL
'=======================================================================================
On Error Resume Next
Dim FSO, spisok, List, F, subfolder, FldList, newLine
Set FSO = CreateObject("Scripting.FileSystemObject")
spisok = "C:\List.txt"
List = Split(FSO.OpenTextFile(WScript.Arguments(0),,,-1).ReadAll, vbNewLine)
For Each F In List
If FSO.FolderExists(F) Then processDir(FSO.GetFolder(F))
Next
If FldList <> "" then
Set ts = FSO.OpenTextFile(spisok, 2, True, -1)
ts.Write FldList
ts.Close
end if
Sub processDir(Object)
if FldList <> "" then newLine = vbnewline
FldList = FldList & newLine & FSO.GetFolder(Object).name
For Each subfolder in Object.SubFolders
processDir(subfolder)
Next
End Sub |