Batya
|
 Posted: Mon Jun 27, 2011 14:37 Post subject: |
 |
|
gatalsky2010
vbs-скрипт:
| Code: | '=====================================================================
' Формирование для каждой папки из файла-списка 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
|
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
