Не знаю, насколько система хранит в памяти в этой строке For Each objFile in objFolder.Files
и будет ли более эффективным использование итерации с использованием чего-то вроде objFile.Files.Count
. Кто-нибудь знает, может ли использование следующего кода вызвать серьезные проблемы с производительностью?Настройка производительности в итерации через коллекцию FileSystemObject
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Get the folder object associated with the directory
Dim objFolder
Set objFolder = objFSO.GetFolder("C:\InetPub\wwwroot")
Response.Write "The files found in " & objFolder.Name & ":<br>"
'Loop through the Files collection
Dim objFile
For Each objFile in objFolder.Files
Response.Write objFile.Name & "<br>"
Next
'Clean up!
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing