Flasher
|
 Posted: Wed Apr 01, 2015 23:58 Post subject: |
 |
|
Так пойдёт?
| Code: | '===================================================
' Найти отсутствующие файлы по нумерации №.ext
' при установке курсора на файле с последним номером
' Условие: путь запуска - пустой
' Параметр: %N
'===================================================
CD = CreateObject("WScript.Shell").CurrentDirectory
List = "List.txt" : F = WScript.Arguments(0)
With CreateObject("Scripting.FileSystemObject")
Ext = .GetExtensionName(F)
For i = 0 to .GetBaseName(F)
Name = i & "." & Ext
If Not .FileExists(Name) Then S = S & vbNewLine & Name
Next : .CreateTextFile(List,1,True).Write Mid(S, 3)
End With : CreateObject("Shell.Application").Open(CD & "\" & List) |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Thu Apr 02, 2015 17:22; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
