Flasher
|
 Posted: Thu Apr 20, 2017 21:00 Post subject: |
 |
|
werst
Ну, если т-а-а-а-к сокращать, то можно и сокращённым назвать. Я бы точно не смог догадаться, о чём речь. Так и где в приведённом посте хоть что-то про последние 11 строк? Там приведено ровно 3 конкретных строки и не одной больше. Но это касалось правки только для одного файла.
Если говорить ещё и о рекурсии для одной папки, то менять в исходнике нужно это:
| Code: | For Each F in Split(FSO.GetFile(List).OpenAsTextStream(1, -1).ReadAll, L)
If FSO.FolderExists(F) Then
F = Left(F, Len(F) - 1) : ForFile F, P
If C = 4 Then : Set F = FSO.GetFolder(F) : ForFolder F, P : End If
Else ForFile F, P : End If
Next : Set FSO = Nothing : Set WSH = Nothing : Set Shell = Nothing : WScript.Quit |
на это:
| Code: | If FSO.FolderExists(List) Then
ForFile List, P : If C = 4 Then Set List = FSO.GetFolder(List) : ForFolder List, P
Else ForFile List, P : End If |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Fri Apr 21, 2017 05:00; edited 3 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
