Filsökning

Här demonstreras hur vi kan söka efter en eller flera filer. Strukturen är enkel men det kan ta längre tid med denna teknik jämfört med sökning mha FSO. Är det fler filer som ska eftersökas rekommenderas Filsökning (FSO).

Tipset finns ej att tillgå för hämtning.

Sub FilSokning()

   '© 2002 Alla rättigheter XL-Dennis

   Dim fsObj As Office.FileSearch

   Dim vaFilnamn As Variant

   Dim stMapp As String

   Dim iAntal As Long

    Set fsObj = Application.FileSearch

    stMapp = "e:\Test"  

  
  iAntal = 0

    With fsObj

      'Nollställer sökvillkoren.

      .NewSearch

      'Mapp att söka i.

      .LookIn = stMapp

      'Sök även i undermappar.

      .SearchSubFolders = True

      'Filändelse att söka efter

      .Filename = "*.xls"

      'Filtyp att söka efter.

      .FileType = msoFileTypeExcelWorkbooks

      'Senast ändrad.

      .LastModified = msoLastModifiedLastMonth

      'Initierar sökningen och hittas minst en fil  så skrivs sökväg &  filnamn ut.

       If .Execute(msoSortByFileType, msoSortOrderAscending) > 0 Then

         'Skriver ut alla funna XL-filer

         For Each vaFilnamn In .FoundFiles

            iAntal = iAntal + 1

            Cells(1 + iAntal, 1).Value = vaFilnamn

         Next vaFilnamn

      Else
         MsgBox "Inga filer hittades."  

      End If

   End With

   Set fsObj = Nothing

End Sub