Propiedad LookIn

Devuelve o establece la carpeta en que se buscará durante la búsqueda de archivos especificada. String de Lectura/Escritura.

Ejemplo

Este ejemplo busca en las carpetas de My Documents todos los archivos cuyos nombres comiencen con "Cmd" y muestra el nombre y ubicación de cada archivo encontrado.

Set fs = Application.FileSearch
With fs
    .LookIn = "C:\My Documents"
    .FileName = "cmd*.*"
    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