[文本处理] 请教批处理使用了获取管理员权限命令后路径变缩写了怎么解决？

diablozhao

使用了获取管理员权限命令后

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
复制代码

获取当前路径的目录名称时，如果是长目录名，会变成缩写，不使用的话是目录名全称。这个有没有办法解决呢？
另外使用了上述代码后，批处理放在用【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
复制代码

diablozhao

回复 2# Batcher


    问题解决了，谢谢大佬~

Batcher

回复 1# diablozhao

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("""%~f0""","::",,"runas",1)(close)&exit /b
复制代码