16. juni 2005 - 12:59Der er
8 kommentarer og 1 løsning
VBA: Effektiv søge funktion
Hej.
Jeg står og mangler en funktion som ud fra visse kriterier kan returnere resultatet af en søgning.
Som input vil jeg gerne kunne angive følgende:
1) Sti til folder som der skal søges i. 2) Angive om der skal søges i kun den folder man angiver, eller også evt. foldere der ligger i den folder man angiver. 3) Hvilken filtype (f.eks. *.* *.xls *.txt osv.) man vil søge efter.
Som output vil det være bedst hvis resultatet bliver lagt i et array.
Jeg har fundet flere eksempler på nettet, men endnu ikke et eksempel som fuldt ud opfylder ovenstående punkter, og som ikke mindst er effektiv :)
Håber der er nogen der ligger inde med en brugbar funktion :)
Kan FileSearch ikke opfylde dine krav? sakset fra hjælpen:
With Application.FileSearch .NewSearch .LookIn = "C:\My Documents" .SearchSubFolders = True .Filename = "Run" .MatchTextExactly = True .FileType = msoFileTypeAllFiles End With With Application.FileSearch If .Execute() > 0 Then MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i Else MsgBox "There were no files found." End If End With
Ikke helt, for så vidt jeg kan læse og prøve mig frem til, så kan jeg ikke angive hvilken som helst filtype til ".FileType", men kun en række konstanter!?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.