Афи
|
 Posted: Fri Dec 30, 2016 10:16 Post subject: |
 |
|
AkelPad последней версии — 4.9.8 х32.
Командная строка:
| Code: | %Commander_path%\...\OpenWithNextNumber.vbs %COMMANDER_PATH%\...\AkelPad\AkelPad.exe |
Параметры:
Скрипт OpenWithNextNumber.vbs (от Batya):
| Code: | Dim Akelpad, FilePath, WS
Akelpad = WScript.Arguments(0)
FilePath = WScript.Arguments(1)
Set WS = WScript.CreateObject("WScript.Shell")
WS.Run """" & Akelpad & """ /C+ """ & NextName(FilePath) & """"
Set WS = Nothing
WScript.Quit()
Function NextName(pFilePath)
Dim FSO, Path, Name, Ext, i, Ending
Set FSO = CreateObject("Scripting.FileSystemObject")
Path = FSO.GetParentFolderName(pFilePath) & "\"
Name = FSO.GetBaseName(pFilePath)
Ext = FSO.GetExtensionName(pFilePath)
Do While FSO.FileExists(Path & Name & Ending & "." & Ext)
i = i + 1
Ending = Right("0" & i, 2)
Loop
Set FSO = Nothing
NextName = Path & Name & Ending & "." & Ext
End Function |
TC: v. 9.0a x32
Windows: 7x64
Создается пустой файл и открывается в AkelPad на редактирование. Естественно, если нажать Esc и прервать процедуру, то пустой и ненужный файл остается  |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
