Question

我正在写信，看看是否有人能告诉我从网站驱动器中提取文件名的最快方法。我有一些用户在Access中使用userform提供的搜索条件。

我尝试过使用FSO，根据我在这种情况下的经验是最慢的。我也尝试过使用带有WScript.Shell的CMD，速度更快，但我记录了使用宏执行检查大约需要7分钟。在资源管理器窗口中使用Windows搜索栏可在大约一分钟或更短的时间内提供结果。我正在搜索的父文件夹有大约35,000个文件夹，每个文件夹包含大约1到2个文件。

这是我使用CMD和WScript.Shell的命令：

    strTemp = CreateObject("WScript.Shell").Exec("CMD /C DIR """ & "N:\" & _
                  Me.txtRegion.Value & "\" & Me.txtYear.Value & "\" & _
                  Me.txtDossier.Value & "*.*"" /S /B /A:-D").StdOut.ReadAll

然后将结果拆分为数组并进行处理。

有没有人对如何改进此代码有任何建议？

MS Access数据表中的自定义超链接标题

0 个答案: