Je cherche une macro qui me liste tous les fichiers d'un répertoire quelconque

Attention, filesearch ne fonctionne plus dans 2007. Voir une solution alternantive dans la rubrique 2007.

sub zaza()
 Set fs = Application.FileSearch
 With fs
  .LookIn = "C:\Documents and SettingsflorenceApplication
 DataMicrosoftExcel"
  .Filename = "*"
  .Execute
    For i = 1 To .FoundFiles.Count
      MsgBox .FoundFiles(i)
    Next i
    If .FoundFiles.Count = 0 Then
    MsgBox "Aucun fichier n'a été trouvé."
    End If
 End With
 end sub

Si dans cette procédure j'écris : .FileName = "F*.*" Et bien j'obtiens tous les fichiers débutant par la lettre F du répertoire choisi. Si j'écris : .FileName = "F*" J'obtiens seulement le nombre de fichiers dont les extensions font partie de la constante "msoFileTypeOfficeFiles"