Predmet:Application.FileSearch
   
Dim fs
Set fs = Application.FileSearch
    With fs
.LookIn = "C:\windows"
.FileName = "print.txt"
    If .Execute > 0 Then
'coddd...
  End If
   End With
ovaj kod funkcionira u 2003
šta je zajenaa za  FileSearch u 2007
 unaprijed hvala