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

我有一个问题，我认为这是与networking驱动器，但现在我已经testing，而不是问题。

有2000个文件（总共328MB）匹配，在testing中使用，大约需要1.4秒来完成这个任务，除了每天的第一次，从30秒到60秒。

我认为迪尔是造成这个问题，但其确切地说在循环内部是缓慢的。

文件caching会导致这个问题？ 有没有更好的方法来快速加载大量文件的第一行

'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