[OSArev]

почему люди, используя «Scripting.FileSystemObject», не используют его методы для выделения пути, имени и расширения файла? »

Iska!!! Кажется дошло, скажи ты это имел ввиду?

Код:

Set FSO = CreateObject("Scripting.FileSystemObject")
'--------------------------------------------------------------------
' Определение полного имени
 If WScript.Arguments.Count = 1 Then
   sFile   = WScript.Arguments.Item(0)
   Set fso = CreateObject("Scripting.FileSystemObject")
 End If
'----------------------------------------
'Короткое имя, без расширения
Name = FSO.GetBaseName(sFile)
'------------------------------------------------
'Путь для создания
PathName = FSO.GetParentFolderName(sFile)
'------------------------------------------------------------
'Создание
fso.CreateTextFile(PathName & "\" & Name & ".txt")

Спасибо за наводку!