VBS/WSH/JS - [решено] Копирование с переименованием

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

VBS/WSH/JS - [решено] Копирование с переименованием

pzh2393

Пользователь

Сообщения: 93
Благодарности: 2

Профиль | Отправить PM | Цитировать

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

Отправлено: 21:28, 05-12-2017

Iska

Ветеран

Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать

Пробуйте:

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

Код:

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

Это сообщение посчитали полезным следующие участники:

pzh2393

Отправлено: 22:21, 05-12-2017 | #2