批处理之家 - Powered by Discuz! Board

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

作者: diablozhao 时间: 2021-10-22 10:45 标题: 请教批处理使用了获取管理员权限命令后路径变缩写了怎么解决？

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

%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
复制代码

作者: Batcher 时间: 2021-10-22 11:07

回复 1# diablozhao

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

作者: diablozhao 时间: 2021-10-22 12:30

回复 2# Batcher

问题解决了，谢谢大佬~

欢迎光临批处理之家 (http://www.bathome.net/)