'=============================================
' Создание и запуск файла со следующим именем
'
' Параметры:
' {файл}
'=============================================
Dim WSH, FSO, File
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
File = NextName(GetPath(WScript.Arguments(0)))
FSO.CreateTextFile(File)
WSH.Run """" & File & """", 1, False
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit()
Function NextName(pPath)
Dim i, lFPath, lPath, lName, lExt
lFPath = pPath
lPath = FSO.GetParentFolderName(pPath) & "\"
lName = FSO.GetBaseName(pPath)
lExt = FSO.GetExtensionName(pPath)
Do While (FSO.FileExists(lFPath) Or FSO.FolderExists(lFPath))
i = i + 1
lFPath = lPath & lName & "[" & i & "]" & "." & lExt
Loop
NextName = lFPath
End Function
Function GetPath(pPath)
GetPath = FSO.GetAbsolutePathName(WSH.ExpandEnvironmentStrings(pPath))
End Function |