[решено] Копирование с переименованием - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Копирование с переименованием (http://forum.oszone.net/showthread.php?t=331682)

Копирование с переименованием

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

Пробуйте:

Скрытый текст

Код:

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