[文本处理] 有没有把带空格长文件名路径转换为win可识别短路径的工具？

ednykissyou

比如我想把这种C:\Program Files\Adobe\Adobe InDesign 2024\Resources\CEP\CEPHtmlEngine
转换为短路径

我这个file://C:\Progra~1\Adobe\Adobe~2\Resources\CEP\CEPHtmlEngine
为何不对呢，Adobe这个目录下就有三个长文件夹：
Adobe Creative Cloud Experience
Adobe InDesign 2024
Adobe Media Encoder CS6

Five66

有啥意义?短文件中的名字又不是固定的

Batcher

回复 18# ednykissyou


建议以后不要再说“不行”、“一闪而过”、“没有反应”之类的话，因为这对于想要给你进一步帮助的人来说没有任何意义。
希望大家都能学会的一个知识点是：如何查看代码的报错信息。

请参考Q-01观察一下哪行代码在报错以及详细的报错信息：
https://mp.weixin.qq.com/s/Koje4FufWxWBs7ioDy_LJA

ShowCode

回复 18# ednykissyou


    收到，祝好运。

ednykissyou

回复 13# ShowCode
无反应，没动静啊

ednykissyou

又发梦冲了，前两天我试Versio~1.0-J是可行的。
今天我试
C:\Users\dublove\AppData\Roaming\Adobe\InDesign\Version 19.0-J\zh_CN\Workspaces
file://C:\Users\dublove\AppData\Roaming\Adobe\InDesign\Versio~1.0-J
竟然又打不开了
下边这一步都可以打开的
file://C:\Users\dublove\AppData\Roaming\Adobe\InDesign\

ednykissyou

回复 13# ShowCode


没有什么用啊？
也没生成个记事本，也没个提示的

ednykissyou

回复 11# buyiyang

编译器错误，无效字符

aloha20200628

系统内置命令 fsutil 可用于管控 dos8.3 命名操作，见如下命令行的当前系统状态查询
其中状态值2，3似乎等效，即只允许系统盘（如c:）8.3命名有效，改变状态值0/1的结果须重建文件目录结构之后方可生效...详细用法可网搜自查
老东家自报8.3命名管理已是dos远古遗产存在诸多纰漏且若与windows_x32/x64位系统命名管理并存会折损文件系统效率...仅在不得已时用之

C:\temp>fsutil 8dot3name

---- 支持的 8DOT3NAME 命令 ----
query   在系统上查询当前设置的短名称行为
scan    扫描受影响的注册表条目
set     更改控制系统上短名称行为的设置
strip   删除目录中所有文件的短名称

C:\temp>fsutil 8dot3name query
注册表状态为: 2 (按卷设置 - 默认值)。

C:\temp>fsutil 8dot3name query
注册表状态为: 1 (禁用所有卷上的 8dot3 名称创建)。

C:\temp>fsutil 8dot3name query
注册表状态为: 0 (启用所有卷上的 8dot3 名称创建)。

C:\temp>fsutil 8dot3name query
注册表状态为: 3 (在所有非系统卷上禁用 8dot3 名称创建)。

ShowCode

回复 5# ednykissyou


放在当前路径.bat

@echo off
for %%i in ("%~dp0") do (
    set "ShortName=%%~si"
)
echo,%ShortName%
pause
复制代码

hnfeng

for /?  里面：
%~sI        - 扩展的路径只含有短名

buyiyang

获取文件或文件夹的短路径

@echo off
set strPath='C:\Users\dub\AppData\Roaming\Adobe\InDesign\Version 19.0-J'
powershell -c "$path=%strPath%;$a=New-Object -ComObject Scripting.FileSystemObject;if(Test-Path $path){if($a.FileExists($path)){$f=$a.GetFile($path)}else{$f=$a.GetFolder($path)};Write-Host $f.ShortPath}else{Write-Host '路径不存在'}"
pause
复制代码

'&cls&cscript -nologo -e:vbscript "%~f0" "C:\Users\dub\AppData\Roaming\Adobe\InDesign\Version 19.0-J"&pause&exit
strPath = WScript.Arguments(0)
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strPath) Then
    Set f = objFSO.GetFile(strPath)
    WScript.Echo f.ShortPath
ElseIf objFSO.FolderExists(strPath) Then
    Set f = objFSO.GetFolder(strPath)
    WScript.Echo f.ShortPath
Else
    WScript.Echo strPath & " 路径不存在"
End If
复制代码

ShowCode

回复 6# ednykissyou


    VERSIO~1.0-J

ppll2030

回复 6# ednykissyou


    file://C:\Users\dub\AppData\Roaming\Adobe\InDesign\Versio~1.0-J

有问题，可以用cmd下，用dir /x来检查一下系统的正确短路径

czjt1234

实在不行你可以逐个查看
比如

@echo off
cd /d c:\
dir /x
复制代码

可以看到各长文件名对应的短文件名