有没有办法通过抓取1抓取所有文件信息来加速VBA？

Question

我有一些代码使用带有网络路径位置的数组，然后提取有关每个路径中文件的信息。

问题是代码非常慢。我已经意识到主要问题是每个文件通过网络3次。 1次查找文件名，第2次获取最后修改的文件日期，第3次获取文件大小。有没有办法通过一次扫描获取所有这些信息以加快速度？ 谢谢:)）

 For i = 0 To UBound(x)
        file = Dir(x(i))

    While file <> vbNullString
                        fileModDate = FileDateTime(x(i) & file)
                        FILESIZE = FileLen(x(i) & file)
    Wend
Next i