获取指定文件夹及其子文件夹下所有文件信息、并做成超链接

rio123

修改日期报错，把修改日期去掉就能正常运行，麻烦更新下

ivccav

rio123 发表于 2018-1-31 10:06
你好，为什么我用这个在获取下一级带文件夹的文件时，会提示错误？有的文件夹无法提取，见下图

用了excel2007和wps都没有问题，文件夹层级超过6级（用的是递归，不会遗漏子文件夹的）。
只发现文件序号有点问题，序号不能在递归函数中使用，而是应该在调用完递归函数之后在赋值。

rio123

我用的是excel2010，把提取修改日期那行代码删掉就能正常运行了

rio123

ivccav 发表于 2018-1-31 10:30
用了excel2007和wps都没有问题，文件夹层级超过6级（用的是递归，不会遗漏子文件夹的）。
只发现文件序 ...

我用的是excel2010，把提取修改日期那行代码删掉就能正常运行了

ivccav

rio123 发表于 2018-1-31 10:44
我用的是excel2010，把提取修改日期那行代码删掉就能正常运行了

我没有2010，不知道呢。你可以点VBE编辑器中的菜单-引用,勾选Microsoft Scripting Runtime，确认，前期绑定，就可以自动带出方法和属性了！
看看是否有DateLastModified的选项，如果没有，就是不支持了。

Sub test()
Dim FSO As New Filesystemobject
Dim ff As Folder, f As File
Set ff = FSO.getfolder(pth)
For Each f In ff.Files
    f.DateLastModified

rio123

ivccav 发表于 2018-1-31 11:12
我没有2010，不知道呢。你可以点VBE编辑器中的菜单-引用,勾选Microsoft Scripting Runtime，确认，前期绑 ...

好用了，非常感谢，非常强大！

kuangben8

感谢楼主分享！谢谢。

ivccav

直接输出到单元格，效率太低。已改为数组。



获取指定文件夹和子文件夹下所有文件（数组）.zip (58.54 KB, 下载次数: 390)

2018-12-22 11:23 上传

点击文件名下载附件

stone3299

楼主，我是win7 64位的系统，下载下来您那个代码之后，提示在64位中运行有问题，我查了一下，在64位中运行需要把 Declare 改为 Declare PtrSafe
改完了之后我将文件放入需要提取信息的文件夹中运行，一直显示“正在获取文件请稍等”。这个问题怎么解决呀，楼主。

盘尼西林99

ivccav 发表于 2018-12-22 11:24
直接输出到单元格，效率太低。已改为数组。

首先谢谢楼主的分享。
下载试了一下，少了超链接代码，烦请楼主加上。谢谢！