我有一个问题,我认为这与网络驱动器有关,但现在我已经测试过,而不是问题。
有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