文件名，文件创建时间批量输出至文本或excel

Question

文件夹内有文件和子文件夹，现在需要脚本可以批量导出文件名，文件创建时间到文本或excel。求大神赐教脚本

Answer 1

可以利用VBA写代码来实现，将文件名和文件修改时间批量输出至Excel中。

操作系统：win10；软件版本：Office2010

方法如下：

1.Alt+F11，输入代码如下：

代码注释已给出

Sub main()

    ff = Dir("D:\*.*") '遍历D盘根目录下所有文件

    Do While ff <> "" '如果存在文件

    k = k + 1 '依次递增存储文件和时间

    Cells(k, 1) = ff '第一列存文件名

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set f = fs.GetFile("D:\" & ff)

    Cells(k, 2) = f.DateCreated '第二列存文件修改时间

    ff = Dir

    Loop

End Sub

2.F5执行代码，返回Excel得到结果如下：