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

diablozhao

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

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

复制代码

获取当前路径的目录名称时，如果是长目录名，会变成缩写，不使用的话是目录名全称。这个有没有办法解决呢？
另外使用了上述代码后，批处理放在用【subst】做的虚拟映射盘下执行也会出错，不知道有没有办法解决？

1. @echo off
   
2. %1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
   
3. cd /d "%~dp0"
   
4. set v1=%cd%
   
5. set v2=%~dp0%
   
6. echo %v1%
   
7. echo %v2%
   
8. for /f "delims=" %%i in ("%v1%") do (set dzv1=%%~ni)
   
9. echo %%cd%%=%dzv1%
   
10. for /f "delims=" %%i in ("%v2:~0,-1%") do (set dzv2=%%~ni)
    
11. echo %%~dp0%%=%dzv2%
    
12. pause

复制代码

Batcher

回复 1# diablozhao

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

复制代码

diablozhao

回复 2# Batcher


    问题解决了，谢谢大佬~