Total Commander

Код: Выделить всё

'=====================================================================
' Формирование для каждой папки из файла-списка txt-файла,
'   содержащего список вложенных файлов
'
' Параметры:
' {файл-список}
'
' Примеры параметров при вызове из TC:
' %L
'=====================================================================
Option Explicit
Dim FSO, F, F1, FF
Set FSO = CreateObject("Scripting.FileSystemObject")

With FSO.OpenTextFile(WScript.Arguments(0), 1)
  Do While Not .AtEndOfStream
    F = Trim(.ReadLine)
    If F <> "" Then
      If FSO.FolderExists(F) Then
        F1 = FSO.GetFolder(F).Path & ".txt"
        Set FF = FSO.OpenTextFile(F1, 2, True)
        ForFolder FSO.GetFolder(F), FF
        FF.Close
      End If
    End If
  Loop
  .Close
End With

Set FF  = Nothing
Set FSO = Nothing
Wscript.Quit()

Sub ForFolder(pFolder, pFile)
  Dim lF
  For Each lF In pFolder.Files
    ForFile lF.Path, pFile
  Next
  For Each lF In pFolder.SubFolders
    ForFolder lF, pFile
  Next
End Sub

Sub ForFile(pFilePath, pFile)
  pFile.WriteLine pFilePath
End Sub