Batya
|
 Posted: Mon Apr 07, 2008 10:06 Post subject: |
 |
|
Это мой скрипт.
[+] Добавил новый параметр CreateNewFile, изменяемый в теле скрипта.
[*] Небольшие исправления кода.
| Code: | Dim CreateNewFile
'============ Изменяемые параметры =================
CreateNewFile = True 'Предварительное создание файла
'===================================================
Dim Editor, FilePath
Editor = WScript.Arguments(0)
FilePath = WScript.Arguments(1)
CreateObject("WScript.Shell").Run """" & Editor & """ """ & NextName(FilePath) & """", 5, False
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
NextName = Path & Name & Ending & "." & Ext
If CreateNewFile Then
FSO.CreateTextFile(Path & Name & Ending & "." & Ext)
End If
Set FSO = Nothing
End Function |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
