VBA代码每天第一次运行缓慢

Question

我有一个问题，我认为这与网络驱动器有关，但现在我已经测试过，而不是问题。

有2000个文件（总计328MB）匹配，在测试中使用，任何时候运行它都需要大约1.4秒完成此操作，除了每天第一次，当它需要30秒到60秒时。< / p>

我认为Dir导致了这个问题，但它最终在循环中很慢。

文件缓存会导致此问题吗？ 是否有更好的方法可以快速加载大量文件的第一行

'Get All Filenames
sAllFiles = Dir("C:\Folder\" & sFile & "??.???")

'Loop through each File
Do While Len(sAllFiles) > 0

    sCurrentFileName = sAllFiles
    sCurrentFilePath = "C:\Folder\" & sCurrentFileName

    'Read 1st line from each file
    Open sCurrentFilePath For Input As #1

        Line Input #1, sFirstLine

    Close #1

     vRowData = Split(sFirstLine, "~")
     '(Write data to array code here)

    sAllFiles = Dir

Loop