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

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

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

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

   

Rodny



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

Путь к редактору меняется в строке 35

Код:
'==============================================================================
' Создаёт пустой текстовый файл с именем выделенного файла/каталога и открывает его в AkelPad.
' Если такой файл существует - открывает его в AkelPad.
'
' По умолчанию файл создаётся в текущем каталоге.
' Параметры кнопки: "%P" %N 1
' Первые два параметра обязательны, необязательный третий задаёт режим:
'  1 - если выделен каталог, файл создаётся внутри него
'  2 - если выделен каталог, файл создаётся внутри него и имеет имя:  
'      "родительский_каталог - выделенный_каталог"
'  
'#######  Кнопка ########
'TOTALCMD#BAR#DATA
'%COMMANDER_PATH%\Utils\WSH\CreateNewTxtFileAdvanced.vbs
'"%P" %N 2
'%commander_path%\utils\akelpad\akelpad.exe
'Создание текстовых файлов
'
'
'-1
'
'########################
' Rodny (с)
' http://forum.ru-board.com/topic.cgi?forum=5&topic=33904&start=5900#8
'==============================================================================
Option Explicit
 
Dim
WSH, FSO, Mode, Path, Name, FullPath, Filename, File, Editor
Dim MyArray, ParentDir
 
Set WSH = CreateObject("WScript.Shell")
Set
FSO = CreateObject("Scripting.FileSystemObject")
 
Mode = 0
' Путь к редактору
Editor = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%\Utils\AkelPad\AkelPad.exe")
 
If
WScript.Arguments.Count = 0 Then
   
MsgBox
"Параметры кнопки не заданы!", vbOKOnly + vbExclamation, "Внимание!"
   
WScript.Quit
ElseIf WScript.Arguments.Count = 3 Then
   
Mode = WScript.Arguments(2)
End If
 
Path = WScript.Arguments(0)
Name = WScript.Arguments(1)
FullPath = Path & Name
MyArray = Split(FullPath, "\")
ParentDir = MyArray(UBound(MyArray) - 1)
 
If
FSO.FileExists(FullPath) Then
   
Filename = FSO.GetBaseName(FullPath)
   
ElseIf (
FSO.FolderExists(FullPath)) And (Mode = 2) Then
       
Filename = ParentDir & " - " & Name
    ElseIf FSO.FolderExists(FullPath) Then
       
Filename = Name
End If
 
' Раскомментируйте следующую строку, чтобы вручную вводить или менять имя файла
'Filename = InputBox("Введите имя нового файла без расширения", "Создание нового файла *.txt", Filename)
If Filename <> "" Then
    If
Mode = 0 Then  
       
Filename = Filename & ".txt"
   
Else  
       
Filename = Name & "\" & Filename & ".txt"
   
End If
   If Not
FSO.FileExists(Filename) Then
      Set
File = FSO.OpenTextFile(Filename, 2, True)
     
File.Close
  End If
 
WSH.Run """" & Editor & """ " & Filename, 1, True
End If
 
Set
FSO = Nothing
Set
WSH = Nothing
Wscript.Quit
 ?  Код создан и опубликован с помощью SciTE-Ru

Всего записей: 2877 | Зарегистр. 28-07-2006 | Отправлено: 00:49 27-10-2012 | Исправлено: Rodny, 01:03 27-10-2012
   

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

Компьютерный форум 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