Attribute VB_Name = "Module2"
Public Sub Haut01_Excel2003()
'Koodissa on määritelty FileSearch -ominaisuuksilla etsittävä kansio (rivi 4), etsittävät tiedostotyypit (rivi 5) ja etsittävän tiedoston nimen osa (rivi 6).
'Tämän jälkeen haku on käynnistetty Execute-metodilla (rivi 7), ja tämän jälkeen löydettyjen tiedostojen kappalemäärä on otettavissa talteen muuttujaan LoydetytKpl (rivi 8).
'Sitten koodissa tarvitsee enää silmukoida kaikki löydetyt kohteet (rivit 10-12) ja ottaa niiden nimi talteen (rivi 11).
'Vastaus siis kerätään rivillä 11 ja näytetään koodin suorituksen päätteeksi rivillä 13.
   Dim LoydetytKpl As Long
   Dim Lp As Long
   Dim OutStr As String
   On Error GoTo Virhe:
4  Application.FileSearch.LookIn = "D:\Data"
   Application.FileSearch.FileType = msoFileTypeAllFiles
   Application.FileSearch.Filename = "*.csv"
7  Application.FileSearch.Execute
   LoydetytKpl = Application.FileSearch.FoundFiles.Count
   OutStr = ""
10 For Lp = 1 To LoydetytKpl
     OutStr = OutStr & Application.FileSearch.FoundFiles.Item(Lp) & Chr(10)
12 Next Lp
13 MsgBox OutStr
   Exit Sub
Virhe:
  If Err.Number = 445 Then
    If Application.Version = "12.0" Then
      MsgBox "Virhe toiminnossa. Ethän suorita tätä Excel-2007 -versiossa? "
    Else
      MsgBox "Jokin muu Virhe. Tarkista hakuehdot, etenkin kansio."
    End If
  Else
    MsgBox "Jokin muu Virhe. Tarkista hakuehdot, etenkin kansio."
  End If
End Sub