Відкрийте відповідний віддалений каталог з файлом bat

Мені потрібен звичайний ярлик або .bat, розташований у C: \ abc \ 00001 \ Він повинен посилатися на C: \ xyz \ 00001 \, де 00001 трактується як відносний вираз, в даному випадку "поточна назва каталогів".

Метою є швидкий доступ до "сестри папки", незалежно від того, чи буде ім'я папки 00001 або 12734, або 96185 тощо. Справжні шляхи будуть далеко один від одного у дереві папок.

В ідеалі це був би не bat файл, а звичайна ярлика Windows, але я не міг змусити роботу CurrDirName%.

Я спробував шукати і придумав якийсь код, який, можливо, міг би бути скоригований відповідно до мети, але у мене мало досвіду роботи з цим типом синтаксису ..

Отримайте поточну назву каталогів (де знаходиться файл bat; C: \ abc \ 00001 \ повинен дати 00001)

for %%* in (.) do set CurrDirName=%%~nx*

Відкрийте відповідний віддалений каталог (C: \ xyz \ 00001)

%SystemRoot%\explorer.exe "c:\xyz\%CurrDirName%"

Хтось бере? :)

EDIT: Завдяки @davidmneedham я в кінцевому підсумку використовував VBscript. Ось мій остаточний код:

Set objShell = CreateObject("Wscript.Shell")
strPath = Wscript.ScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFSOexists = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath)
strFolder = objFSO.GetParentFolderName(objFile)
strExchangeThis = "Y:\Organization\...\" 'shortened path!
strToThis  = "Y:\Labspace\...\" 'shortened path!
strRelFolder = Replace(strFolder, strExchangeThis, strToThis)
' if strRelFolder does not exist yet, we should instead be lead to the basic strToThis folder
exists = objFSOexists.FolderExists(strRelFolder)
if Not (exists) then 
    strRelFolder = strToThis
end if
strPath = "explorer.exe /e," & strRelFolder
objShell.Run strPath
' Encoding changed from UTF-8 to ANSI to allow danish characters in strings.

Метод пакетного файлу CMD

Створіть цей пакетний файл і помістіть його у свій C:\abc\00001\каталог:

SET newpath=%cd:\abc\=\xyz\%
start %newpath%

Якщо ви запустите цей пакетний файл, він відкриється C:\xyz\00001\в новому вікні. Ж пакетний файл , що розміщується в C:\xyz\00023\розкриє і C:\xyz\00023\т.д.

%CD%- це змінна середовище, яка представляє поточний каталог. %cd:\abc\=\xyz\%замінює \abc\з \xyz\всередині рядка , яка представляє %cd%. Для отримання детальної інформації див. Сторінку SS64 на заміні змінної cmd .

Метод VBScript

Далі таке саме рішення з використанням VBScript:

Set objShell = CreateObject("Wscript.Shell")
strPath = Wscript.ScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath)
strFolder = objFSO.GetParentFolderName(objFile)
strRelFolder = Replace(strFolder, "\abc\", "\xyz\")
strPath = "explorer.exe /e," & strRelFolder
objShell.Run strPath