Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Total Commander (Часть 7)

Модерирует : gyra, Maz

articlebot (19-12-2012 23:27): переезжаем в новую тему, Часть 8  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

Rodny



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
' Создает пустой файл в текущем каталоге и открывает его в AkelPad
' http://forum.ru-board.com/topic.cgi/topic.cgi?forum=5&topic=23898&start=700#2
' http://forum.wincmd.ru/viewpost.php?p=62281
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%\Utils\AkelPad\AkelPad.exe")
  WshShell.Run """" & editor & """ " & filename, 1, True
End If

Всего записей: 2877 | Зарегистр. 28-07-2006 | Отправлено: 17:31 04-08-2010 | Исправлено: Rodny, 17:38 04-08-2010
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Total Commander (Часть 7)
articlebot (19-12-2012 23:27): переезжаем в новую тему, Часть 8


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru