Kan hastigheden i denne stump kode optimeres
Har brug for at kunne vise billeder i en mappe. Min kode køre sådan set fin, men da jeg har mange filer i mappen og ønsker at vise dem i alfabetisk rækkefølge opfattes den som sløv.Kan man skrive dette smartere ...
Dim myarray()
For Each Image In objFiles
If InStr(1,Image.Name,Searchtxt,1) then
antbilled=antbilled+1
End if
Next
reDim myarray(antbilled)
For Each Image In objFiles
If InStr(1,Image.Name,Searchtxt,1) then
myarray(teller)=Image.Name
teller=teller+1
End if
Next
Set objFS = Nothing
max=ubound(MyArray)
For i=0 to max
For j=i+1 to max
if MyArray(i)>MyArray(j) then
TemporalVariable=MyArray(i)
MyArray(i)=MyArray(j)
MyArray(j)=TemporalVariable
end if
next
next
Tak