TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\TextFromClipboardInEditor2.vbs"
"%P" "%%COMMANDER_PATH%%\AkelPad.exe"
%COMMANDER_PATH%\AkelExtImage.dll,18
Создать файл с текстом буфера обмена (при наличии) и открыть его в редакторе

-1

Dim FSO, MyFile
   
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set WshShell = WScript.CreateObject("WScript.Shell")

   FileName=Inputbox("Введите имя :","Создание документа Word 2010")
'Для кнопки Отмена или для пустого поля ввода
  If FileName=Empty Then
    WScript.Quit
  End If

'Проверка на существование файла и создание.
'Открытие файла
  If FSO.FileExists(FileName & ".docx") Then
     WScript.Echo "Документ  ''"& FileName & ".docx" & "'' – уже существует."
  WshShell.Run("Explorer" &" " & FileName & ".docx")
     WScript.Quit 0
   Else
     fso.CreateTextFile(FileName & ".docx")
   End If  
  WshShell.Run("Explorer" &" " & FileName & ".docx")