' Rename ' Version: 1.0 ' Autor: mozers™ (идея codewarlock1101) ' ------------------------------------------------ ' Переименовывает текущий файл ' Для подключения добавьте в свой файл .properties следующие строки: ' command.name.82.*=Rename current file ' command.82.*=wscript "$(SciteDefaultHome)\tools\rename.vbs" ' command.mode.82.*=subsystem:windows,replaceselection:no,savebefore:no,quiet:yes ' command.shortcut.82.*=Shift+F6 ' ------------------------------------------------ Option Explicit Dim FSO, SciTE Dim dir, filename, filename_new Set FSO = CreateObject("Scripting.FileSystemObject") Set SciTE = CreateObject("SciTE.Helper") dir = SciTE.Props("FileDir") filename = SciTE.Props("FileNameExt") filename_new = InputBox("Enter new filename:", "Rename file", filename) filename = dir & "\" & filename filename_new = dir & "\" & filename_new If filename_new <> "" And filename_new <> filename Then SciTE.Send ("open:" & filename) SciTE.Send ("saveas:" & filename_new) FSO.DeleteFile (filename) End If Set SciTE = Nothing Set FSO = Nothing WScript.Quit |