[Iska]

Конечно. Можно, например, передавать путь отдельным параметром скрипта в командной строке, а в самом скрипте проверять, указан ли данный параметр, и, если указан, устанавливать соответствующий путь. Наподобие:

Код:

Option Explicit

Dim objWshShell


Set objWshShell = WScript.CreateObject("WScript.Shell")

If WScript.Arguments.Named.Exists("SetFolder") Then
    WScript.Echo objWshShell.CurrentDirectory

    objWshShell.CurrentDirectory = WScript.Arguments.Named.Item("SetFolder")

    WScript.Echo objWshShell.CurrentDirectory
End If

Set objWshShell = Nothing

WScript.Quit 0

Пример вызова скрипта:

Код:

cscript.exe //nologo C:\Песочница\001\0002.vbs /SetFolder:"C:\Temp"

Результат:

Код: C:\Песочница\001 C:\Temp