[решено] Копирование с переименованием

[pzh2393]

Если у кого есть немного времени прошу подсказать код на VBS позволяющий копировать переименовывать любой направленный на скрипт файл в config.ini и запускать программу из той же папки откуда был взят этот файл.
Уточняю.. Есть программа для которой есть несколько уже готовых конфигов и каждый раз перед запуском копировать и подсовывать ей нужный уже утомило.
Хочется переименовать все конфиги в какое-нибудь свободное расширение и назначить на открытие этот самый скрипт на VBS.
Скрипт должен копировать в ту же папку откуда был вызван и переименовывать этот файл в config.ini, а после запускать программу program.exe так же находящуюся в папке от куда был взят файл для переименования.

[Iska]

Пробуйте:
Option Explicit

Dim strSourceFile


If WScript.Arguments.Count = 1 Then
With WScript.CreateObject("Scripting.FileSystemObject")
strSourceFile = .GetAbsolutePathName(WScript.Arguments.Item(0))

If .FileExists(strSourceFile) Then
.GetFile(strSourceFile).Copy .BuildPath(.GetParentFolderName(strSourceFile), "config.ini"), True
WScript.Echo .BuildPath(.GetParentFolderName(strSourceFile), "program.exe")
WScript.CreateObject("WScript.Shell").Run """" & .BuildPath(.GetParentFolderName(strSourceFile), "program.exe") & """", 1, False
Else
WScript.Echo "Can't find source file [" & strSourceFile & "]."
WScript.Quit 2
End If
End With
Else
WScript.Echo "Usage: wscript.exe """ & WScript.ScriptFullName & """ <Path to config>"
WScript.Quit 1
End If

WScript.Quit 0