Flasher
|
 Posted: Fri Aug 05, 2011 12:49 Post subject: |
 |
|
MVV
Что-то с внутренними ассоциациями ковыряться не хочется.
Если достаточно системных, то последобавить | Code: | CreateObject("Shell.Application").ShellExecute D |
либо с прямым указанием редактора | Code: | CreateObject("WScript.Shell").Exec("%COMMANDER_PATH%\Utils\AkelPad\AkelPad.exe " & D) |
Поскольку речь всё-таки только о файле, сведём к следующему варианту:
| Code: | ' Создание и открытие файла
' Параметры: ""%N"" <расширение>
'===============================
On Error Resume Next
N = WScript.Arguments(0)
Ext = WScript.Arguments(1)
With CreateObject("Scripting.FileSystemObject")
Name = .GetBaseName(N) & "." & Ext
L = vbnewline
Box D
If .FileExists(D) Then
MsgBox "Такой файл уже существует!"&L&"Повторите попытку!",_
vbExclamation," Создание файла"
Box D
End If
If D > vbNullString Then
.CreateTextFile(D)
CreateObject("WScript.Shell").Exec("%COMMANDER_PATH%\Utils\AkelPad\AkelPad.exe "& D)
End If
End With
WScript.Quit
Sub Box(D)
D = InputBox(L&L&L&L&L&"Введите имя нового файла:",_
" Создание файла",Name)
End Sub |
Вместо пути к AkelPad пишем путь к своему редактору, путь запуска в кнопке/юзеркоманде очищаем. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
