将文件名和文件修改时间批量输出至Excel中

操作系统：Windows10

软件版本：Office2019

1．打开一个空的Excel表格，Alt+F11，双击Sheet1进入代码编辑，输入代码如下：

Sub main()
    ff = Dir("D:\Slice\*.*") '遍历D盘根目录下Slice文件夹
    Do While ff <> "" '如果存在文件
    k = k + 1 '依次递增存储文件和时间
    Cells(k, 1) = ff '第一列存文件名
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile("D:\Slice\" & ff)
    Cells(k, 2) = f.DateLastModified '第二列存文件创建时间
    'f.DateCreated '文件修改时间
    ff = Dir
    Loop
End Sub

代码解释：
Dir()：文件所在文件夹的路径，*.*代表所有名字所有后缀的文件，也可以为.jpg之类的指定后缀文件，那么其余后缀的文件将不会被导出。

<>：≠，相当于判定ff是否为空

CreateObject(“Scripting.FileSystemObject”)：应该是内置函数调用

.Getfile()：加入文件所在文件夹路径

.DateLastModified、.DateCreated：文件创建时间和修改时间，一般选文件创建时间

2．F5运行程序