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

ppll2030

四级士官

Rank: 3 Rank: 3

帖子: 181
积分: 255
技术: 21
捐助: 0
注册时间: 2023-9-27

3楼

发表于 2024-6-18 17:35 | 只看该作者

C:\Progra~1\Adobe\AdobeI~1\Resour~1\CEP\CEPHtm~1

短路径是截取前六个字符，有空格占用的要忽略，如Adobe InDesign 2024表示为AdobeI~1

Rank: 1

帖子: 92
积分: 83
技术: 0
捐助: 0
注册时间: 2012-2-4

4楼

发表于 2024-6-18 18:21 | 只看该作者

谢谢二位前辈。
我又长进了一点。

Rank: 1

帖子: 92
积分: 83
技术: 0
捐助: 0
注册时间: 2012-2-4

5楼

发表于 2024-6-21 18:14 | 只看该作者

回复 2# ShowCode

没看懂你这个咋用，批处放在当前路径能获取到短路径？

Rank: 1

帖子: 92
积分: 83
技术: 0
捐助: 0
注册时间: 2012-2-4

6楼

发表于 2024-6-21 18:15 | 只看该作者

回复 3# ppll2030

C:\Users\dub\AppData\Roaming\Adobe\InDesign\Version 19.0-J

上边这个我写成这样又为何不对了
file://C:\Users\dub\AppData\Roaming\Adobe\InDesign\Versio~1

czjt1234

少校

Rank: 6 Rank: 6

帖子: 1058
积分: 1559
技术: 112
捐助: 0
注册时间: 2010-4-30

7楼

发表于 2024-6-21 21:09 | 只看该作者

file:///D:/Program Files (x86)/Tencent/WeChat Files/wxid_93hw03hhoq4a22/index.htm
复制代码

我在 IE浏览器 QQ浏览器 google浏览器的地址栏输入这个地址均能打开指定的网页
你到底是什么环境需要短名称

QQ 20147578

czjt1234

少校

Rank: 6 Rank: 6

帖子: 1058
积分: 1559
技术: 112
捐助: 0
注册时间: 2010-4-30

8楼

发表于 2024-6-21 21:12 | 只看该作者

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

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

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

QQ 20147578

ppll2030

四级士官

Rank: 3 Rank: 3

帖子: 181
积分: 255
技术: 21
捐助: 0
注册时间: 2023-9-27

9楼

发表于 2024-6-21 23:21 | 只看该作者

回复 6# ednykissyou

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

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

ShowCode

VIP1

Rank: 8 Rank: 8

帖子: 567
积分: 1151
技术: 91
捐助: 298
注册时间: 2017-3-17

10楼

发表于 2024-6-22 09:03 | 只看该作者

回复 6# ednykissyou

VERSIO~1.0-J

测试代码之前请做好备份

buyiyang

中尉

Rank: 5 Rank: 5

帖子: 427
积分: 803
技术: 119
捐助: 0
注册时间: 2022-3-26

11楼

发表于 2024-6-22 12:46 | 只看该作者

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

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

hnfeng

五级士官

Rank: 4

帖子: 244
积分: 305
技术: 7
捐助: 0
注册时间: 2012-4-21

12楼

发表于 2024-6-23 08:45 | 只看该作者

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

ShowCode

VIP1

Rank: 8 Rank: 8

帖子: 567
积分: 1151
技术: 91
捐助: 298
注册时间: 2017-3-17

13楼

发表于 2024-6-23 09:39 | 只看该作者

回复 5# ednykissyou

放在当前路径.bat

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

测试代码之前请做好备份

aloha20200628

上尉

Rank: 5 Rank: 5

帖子: 877
积分: 1459
技术: 189
捐助: 0
注册时间: 2021-10-13

14楼

发表于 2024-6-23 10:27 | 只看该作者

本帖最后由 aloha20200628 于 2024-6-23 10:28 编辑

系统内置命令 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 名称创建)。

Rank: 1

帖子: 92
积分: 83
技术: 0
捐助: 0
注册时间: 2012-2-4

15楼

发表于 2024-6-28 21:07 | 只看该作者

回复 11# buyiyang

编译器错误，无效字符