文件名称中的特殊符号代码没法识别，导致文件没法打开

3190496160 · 发表于 2024-10-27 09:00

文件名包含特殊符号.rar (100.9 KB, 下载次数: 12)
又遇到一个棘手的问题，很多word文档的文件名称中包含特殊符号：•，代码就没法识别这个点号，导致代码没法打开文件，就连用代码批量修改文件名称也修改不了，

请教各位朋友，有什么办法可以处理这个问题，让文件可以用代码打开

准提部林 · 发表于 2024-10-27 09:44

更名//
試試
w = Replace(f, ChrW(8226), "-")

3190496160 · 发表于 2024-10-27 09:48

准提部林发表于 2024-10-27 09:44
更名//
試試
w = Replace(f, ChrW(8226), "-")

谢谢关注，可以替换的，但是，没用的，因为代码没法识别原来的文件名称，所以，提示文件名或者文件号错误

perfect131 · 发表于 2024-10-27 09:58

本帖最后由 perfect131 于 2024-10-27 10:11 编辑

3190496160 发表于 2024-10-27 09:48
谢谢关注，可以替换的，但是，没用的，因为代码没法识别原来的文件名称，所以，提示文件名或者文件号错误

不用替换
用fso获取再用chrw
21楼
https://club.excelhome.net/thread-1492890-1-1.html

准提部林 · 发表于 2024-10-27 10:25

替換檔名///

准提部林 · 发表于 2024-10-27 10:26

替換檔名(含特殊字元)...by.准提部林
Sub 替換檔名()
Dim Obj, FileList, F, OldName$, NewName$
Set Obj = CreateObject("Scripting.FileSystemObject")
Set FileList = Obj.GetFolder(ThisWorkbook.Path).Files
For Each F In FileList
OldName = F.Name
If Right(OldName, 4) <> ".doc" Then GoTo f01
NewName = Replace(OldName, ChrW(8226), "-")
If F.Name <> NewName Then F.Name = NewName
f01: Next F
End Sub

准提部林 · 发表于 2024-10-27 10:28

3190496160 发表于 2024-10-27 09:48
谢谢关注，可以替换的，但是，没用的，因为代码没法识别原来的文件名称，所以，提示文件名或者文件号错误

有特殊字元或其它編碼文字,
dir 無法取出正確檔名的~~

NameA as NameB ... 也一樣

3190496160 · 发表于 2024-10-27 11:53

准提部林发表于 2024-10-27 10:25
替換檔名///

非常感谢您的无私付出，
自己学艺不精啊，

ykcbf1100 · 发表于 2024-11-3 05:11

参与一下，文件重命名

ykcbf1100 · 发表于 2024-11-3 05:12

参与一下。。。

		自动登录	找回密码
密码			免费注册

[求助] 文件名称中的特殊符号代码没法识别，导致文件没法打开