請教批處理使用了獲取管理員權限命令后路徑變縮寫了怎么解決使用了獲取管理員權限命令后

%1 mshta vbscript:CreateObject(Shell.Application).ShellExecute(cmd.exe,/c %~s0 ::,,runas,1)(window.close)&&exit
nclick="copycode($('code0'));">復制代碼

獲取當前路徑的目錄名稱時，如果是長目錄名，會變成縮寫，不使用的話是目錄名全稱。這個有沒有辦法解決呢？另外使用了上述代碼后，批處理放在用【subst】做的虛擬映射盤下執行也會出錯，不知道有沒有辦法解決？

@echo off
%1 mshta vbscript:CreateObject(Shell.Application).ShellExecute(cmd.exe,/c %~s0 ::,,runas,1)(window.close)&&exit
cd /d %~dp0 
set v1=%cd%
set v2=%~dp0%
echo %v1%
echo %v2%
for /f delims= %%i in (%v1%) do (set dzv1=%%~ni)
echo %%cd%%=%dzv1%
for /f delims= %%i in (%v2:~0,-1%) do (set dzv2=%%~ni)
echo %%~dp0%%=%dzv2%
pause
nclick="copycode($('code1'));">復制代碼