Performance 有没有一种方法可以通过用一个抓取器抓取所有文件信息来加快VBA的速度？

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

问题是代码非常慢。我意识到，主要问题是每个文件通过网络访问3次。第一次查找文件名，第二次获取上次修改的文件日期，第三次获取文件大小。有没有一种方法可以通过一次扫描获取所有这些信息来加快速度？ 谢谢：）

i=0到UBound（x）的

file=Dir（x（i））
而文件vbNullString
fileModDate=FileDateTime（x（i）&文件）
FILESIZE=FileLen（x（i）&文件）
温德
接下来我

您可以使用脚本运行库中的。我尝试使用FileSystemObject。速度根本没有提高。仍然需要通过网络进行3次文件抓取。请分享您如何使用FileSystemObject。设置F=fs.GetFile（fullfilepath）fileModDate=F.DateLastModifiedum，这会进行两次网络查询，对吗？但是第三个，

FILESIZE=F.size

现在应该在本地可用了，我错了吗？您可以使用脚本运行库中的。我尝试使用FileSystemObject。速度根本没有提高。仍然需要通过网络进行3次文件抓取。请分享您如何使用FileSystemObject。设置F=fs.GetFile（fullfilepath）fileModDate=F.DateLastModifiedum，这会进行两次网络查询，对吗？但是第三个，

FILESIZE=F.size

现在应该可以在本地使用了，我错了吗？

 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