Если я правильно вновь перечитал указанную статью, то примерно так (cкрипт VBScript, на указанной ОС не проверялось по причине отсутствия оной):
читать дальше »
Код:
Option Explicit
Dim strPath2Folder
Dim strNewFilePath
Dim lngCount
If WScript.Arguments.Count <> 0 Then
With WScript.CreateObject("Scripting.FileSystemObject")
strPath2Folder = WScript.Arguments.Item(0)
strNewFilePath = .BuildPath(strPath2Folder, "Текстовый документ.txt")
lngCount = 1
Do
If Not .FileExists(strNewFilePath) Then
Exit Do
Else
lngCount = lngCount + 1
strNewFilePath = .BuildPath(strPath2Folder, "Текстовый документ (" & CStr(lngCount) & ").txt")
End If
Loop
With .CreateTextFile(strNewFilePath)
.Close
End With
End With
Else
WScript.Echo "Do not use this script directly"
End If
WScript.Quit 0