Владимир М
|
 Posted: Sun Apr 18, 2010 22:47 Post subject: |
 |
|
Опытным путём пришёл к выводу, что все кнопки с кодом начинающимся с TOTALCMD#BAR#DATA выдают одну и ту же ошибку (смотри скрин выше) посему решил не биться головой о стену а использовать другую кнопку, вот код:
| Code: | Set WshShell = CreateObject("WScript.Shell")
filename = InputBox("Введите имя нового файла без расширения", "Создание нового файла *.txt")
If filename <> "" Then
filename = filename & ".txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile(filename, 2, True)
File.Close
editor = WshShell.ExpandEnvironmentStrings("%COMMANDER_PATH%\Plugins\exe\AkelPad\AkelPad.exe")
WshShell.Run """" & editor & """ " & filename, 1, True
End If |
данная кнопка создаёт текстовый файл в папке где находится сама кнопка.
Вопрос: Как сделать так, чтобы можно было создавать текстовые файлы в папке отличной от той в которой находится сама кнопка с кодом?
p.s. в идеале хотелось бы создавать текстовый файл в активной вкладке
_________________
Windows7 x64 TC 7.55a |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
