文件名包含空格怎么处理？ - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 文件名包含空格怎么处理？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1195 人关注过本帖

标题：文件名包含空格怎么处理？

只看楼主加入收藏

ictest

等　级：论坛游侠
帖　子：333
专家分：114
注　册：2010-2-17
结帖率：70%

楼主

已结贴√ 问题点数：20 回复次数：7

文件名包含空格怎么处理？

请教，很奇怪的，有两个文件，这两个文件的文件名都包含空格，但在filebox中显示，一个文件名中的空格正常显示，另一个文件名中的空格却显示为问号，空格显示正常的文件能使用“Set xbook1 = xap.Workbooks.Open(File1.Path & "\" & File1.List(0))”语句；文件名中的空格显示为问号的文件使用“Set xbook1 = xap.Workbooks.Open(File1.Path & "\" & File1.List(0))”语句报“实时错误1004，对象OPEN的方法Workbooks失败”错误。

现在请求，不管在filebox中是否显示正常，只要在文件名中包含空格，全部空格替换成下划线“_”，这样的改名语句怎样写？（不用shell语句指定具体文件名）

a.rar (10.01 KB)

图片附件: 游客没有浏览图片的权限，请登录或注册

搜索更多相关主题的帖子: 显示　包含　空格　文件　文件名　

2022-12-16 09:49

吹水佬

等　级：版主
威　望：451
帖　子：10539
专家分：42927
注　册：2014-5-20

第 2 楼

得分:7

肯定不是“空格”
先要了解清楚，这个文件是怎样产生的? 文件名是不是从哪里复制过来的?

2022-12-16 14:47

ictest

等　级：论坛游侠
帖　子：333
专家分：114
注　册：2010-2-17

第 3 楼

得分:0

以下是引用吹水佬在2022-12-16 14:47:58的发言：

肯定不是“空格”
先要了解清楚，这个文件是怎样产生的? 文件名是不是从哪里复制过来的?

版主大大，这个已经追溯不出来了，也许是用什么软件将PDF文件转换成EXCEL文件形成的，也有可能是某种系统直接生成的Excel文件，没办法了解了。
现在我就想把带问号的文件名去除问号改名，但不成功，我自己的语句是：

程序代码：

If InStr(File1.List(i), "?") > 0 Then
temp = Replace(File1.List(i), "?", "_")
End If
Name (File1.Path & "\" & File1.List(i)) As (File1.Path & "\" & temp)

name语句报错
强制修改，Name (File1.Path & "\" & File1.List(i)) As (File1.Path & "\1.xlsx" )也不行

但同样的语句修改带空格文件名可以成功。

程序代码：

If InStr(File1.List(i), " ") > 0 Then
temp = Replace(File1.List(i), " ", "_")
End If
Name (File1.Path & "\" & File1.List(i)) As (File1.Path & "\" & temp)

现在就是想请问，还有没有别的什么办法可以修改？

2022-12-16 16:04

吹水佬

等　级：版主
威　望：451
帖　子：10539
专家分：42927
注　册：2014-5-20

第 4 楼

得分:0

回复 3楼 ictest

试用CMD命令copy或ren先换个名，再改成什么名都可以。

2022-12-16 16:40

mrexcel

等　级：贵宾
威　望：22
帖　子：126
专家分：480
注　册：2022-11-3

第 5 楼

得分:7

以下是引用ictest在2022-12-16 16:04:41的发言：

版主大大，这个已经追溯不出来了，也许是用什么软件将PDF文件转换成EXCEL文件形成的，也有可能是某种系统直接生成的Excel文件，没办法了解了。
现在我就想把带问号的文件名去除问号改名，但不成功，我自己的语句是：

If InStr(File1.List(i), "?") > 0 Then
temp = Replace(File1.List(i), "?", "_")
End If
Name (File1.Path & "\" & File1.List(i)) As (File1.Path & "\" & temp)

name语句报错
强制修改，Name (File1.Path & "\" & File1.List(i)) As (File1.Path & "\1.xlsx" )也不行

但同样的语句修改带空格文件名可以成功。

If InStr(File1.List(i), " ") > 0 Then
temp = Replace(File1.List(i), " ", "_")
End If
Name (File1.Path & "\" & File1.List(i)) As (File1.Path & "\" & temp)

现在就是想请问，还有没有别的什么办法可以修改？

试试替换

chr(63)

2022-12-16 23:32

风吹过b

等　级：贵宾
威　望：364
帖　子：4938
专家分：30047
注　册：2008-10-15

第 6 楼

得分:7

显示？只是给你看的而以，实际上不是？。显示？只是那个字符是不可显示字符而以。

在 CMD 命令行中，使用 DOS 的 DIR 命令列一下文件名看看是什么字符，然后复制内容，再进行改名试试。
windows 直接重命名也应该可以改得了名字。

你代码中，因为 filelist 读到的文件本来就是错误的，所以改名、打开什么都会报错的。
也许是 filelist 是 ANSI 标准，存在无法处理的字符，不知道 VB 的 DIR 命令返回结果是不是 UNICODE 的，可以试一下。
把返回结果直接放到一个 BYTE 数组里，然后通过人工读取数组对应元素的值来判断是是什么字符。