[已解决]按条件遍历指定目录下的文件名

暗夜男

苏子龙 发表于 2016-11-23 06:51
namepath="C:\2016年11月指定目录\",这个是直接放在c盘里面的，不需要thisworkbook.path（本文件地址路径 ...

你好,有个延伸的问题要麻烦一下,关于路径这个百度没找到靠谱又能看懂的结果
之前的代码的namepath是c:\123\456\mth\

我想读取mth下面的789目录

然后把第8行的代码改成了

1. namepath = "c:\123\456" & "" & mth & "" & "789" '文件路径

复制代码

其他没动,报错如图

苏子龙

namepath = "c:\123\456\" & "\" & mth & "\" & "789\" '文件路径
多了红色斜杠

苏子龙

Set fold = CreateObject("shell.application").BrowseForFolder(0, "请选择存放数据的文件夹：", 0, "") '选择文件夹
If fold Is Nothing Then Exit Sub '如果没选择文件夹就退出循环
namepath = fold.Items.Item.Path & "\" '路径
'试试选取的吧

暗夜男

苏子龙 发表于 2016-11-23 15:56
namepath = "c:\123\456\" & "\" & mth & "\" & "789\" '文件路径
多了红色斜杠

谢谢,是我的粗心

终于找到报错的原因了,某些文件名过长,有274个字节,反复测试后发现文件名+后缀字节长度(LENB)大于259会报错

似乎259个字节是Dir函数的极限了,有没有支持大于259个字节的函数?

比如这个文件名

1. 好_啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊2222222222222.xls

复制代码

苏子龙

暗夜男 发表于 2016-11-23 23:10
谢谢,是我的粗心

终于找到报错的原因了,某些文件名过长,有274个字节,反复测试后发现文件名+后缀字节长 ...

最多支持255个字符，要取那么长的文件名作甚，学习精神可嘉！

暗夜男

苏子龙 发表于 2016-11-24 09:17
最多支持255个字符，要取那么长的文件名作甚，学习精神可嘉！

特殊需求,举个例子
我把每个月干的工作用excel记录,并按年月保存,但我想看这个月XX工作是什么时候干的,这时候我只需要在totalcommander打开当月目录,然后输入XX,就会筛选出XX的日期,回车就可以打开XX的详细

但这样不利于快速汇报

比如我这个月一共要干80件事,先干了23件,分别记录在各个表的名字里,然后有人问我还有多少没干,这时候我就需要用80把已经干的事减去,但如果要问我这57件都是什么事,我就得把文件名都贴到excel里再折腾折腾

这个帖子的需求就是把文件名写入excel表,可惜255的文件名限制了我的需求= =