[OSArev]

Так? Хотя на форуме есть подобные темы...
CreateObject.vbs

Код:

Option Explicit

Dim FSO, WshShell, objRegExp, sFile, PathName, i, strName, Ext, r

Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set objRegExp = new regexp

Call CreateFile

WScript.Quit 0

Function CreateFile

Ext    = ".txt"
sFile  = inputbox("Создание текстового документа." & vbCrLf & _
                  "При совпадении имён к имени будут добалены" & vbCrLf & _
                  "приставка ""копия"" и порядковый номер." & vbCrLf & vbCrLf & _
                  "ВВЕДИТЕ НАЗВАНИЕ:", "Создание текстового документа.", "Новый текстовый документ",000,000)
  If Len(sFile) = 0 Then 
     sFile = WScript.Quit
  End If 
	 
objRegExp.Pattern = "[\*\\\/\?\<\>\:\""\|]"           
  If objRegExp.Test(sFile) Then 
      R = MsgBox("ОШИБКА!!! " & vbCrLf & _
                 "Введены недопустимые символы в имени файла." & vbCrLf & _
                  "Попробуйте снова", 64+5 , "Создание текстового документа.") 
          Select Case r 
             Case vbRetry 
                  Call CreateFile
             Case vbCancel 
                  WScript.Quit
          End Select 
  Else

  If WScript.Arguments.Count = 1 Then
     PathName = WScript.Arguments.Item(0)
  End if

  If not FSO.FileExists(PathName & "\" & sFile & Ext) Then 
     fso.CreateTextFile(PathName & "\" &  sFile & Ext)
     WshShell.Run("%windir%\notepad " & PathName & "\" & sFile & Ext)
  Else

  If not FSO.FileExists(PathName & "\" &  sFile & " - копия" & Ext) Then 
     fso.CreateTextFile(PathName & "\" & sFile & " - копия" & Ext)
     WshShell.Run("%windir%\notepad " & PathName & "\" & sFile & " - копия" & Ext)
  Else

  If FSO.FileExists(PathName & "\" & sFile & Ext) Then 

  With FSO
    i = 0
    Do
    i = i + 1 

    If i <> 0 Then strName = sFile & " - копия (" & CStr(i) & ")" & Ext        
    If Not .FileExists(.BuildPath(PathName, strName)) Then 
       fso.CreateTextFile(PathName & "\" &  strName)
     WshShell.Run("%windir%\notepad " & PathName & "\" & strName)
    Exit Do
    End If
    Loop
  End With

  End if
  End If
  End If
  End If
End Function

И REG-файл для добавления в реестр:

Код:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\Background\shell\Новый текстовый документ]
"icon"="C:\\Windows\\ТВОЯ_ПАПКА\\ТВОЯ_ИКОНКА.ico"

[HKEY_CLASSES_ROOT\Directory\Background\shell\Новый текстовый документ\command]
@="WScript C:\\Windows\\ТВОЯ_ПАПКА\\CreateObject.vbs \"%V\""