[OSArev]

но ищется решение конкретной задачи, без похожих вариантов. »

Вы бы показали свои искания, людям было бы интересно...
Вот пока без выделения

Код:

Option Explicit

Dim FSO, sFile, PathName, i, strName, Ext

Set FSO = CreateObject("Scripting.FileSystemObject")

Call CreateFile

WScript.Quit 0

Function CreateFile

Ext    = ".txt"
sFile  = "Новый текстовый документ"

  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)
  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)
    Exit Do
    End If
    Loop
  End With

  End if
  End If
End Function