Witam, mam następujące pytanie w nawiązaniu do fragmentu kodu zamieszczonego poniżej,mam folder z ok. 1970 plikami i operacja dodawania ich do
listboxa wykonuje się bardzo wolno średnio 54 sekundy, czy jest to normalne,czym może być to spowodowane,czy istnieje inna szybsza metoda dostępu
do plików na dysku [VBA] ?
ps. przeszukiwany dysk nie jest lokalny tylko sieciowy zamapowany
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.GetFolder(sciezka).Files.Count > 0 Then
For Each f1 In fs.GetFolder(sciezka).Files
If f1.Name Like "*" & szukana & "*.pdf" Then
Me.ListBox1.AddItem f1.Name
End If
Next
Else
MsgBox "Brak plików!"
End If