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 |
|