Application.FileSearch qui ne retourne rien

[nougitch]

Bonjour,

J'ai le code suivant :

Sub FindMyFiles()

    With Application.FileSearch
        .NewSearch
        .LookIn = "F:\My Documents\Articles"
        MsgBox .FoundFiles.Count & " Fichier(s) ont été trouvés."
    End With

End Sub

Quelque soit le répertoire du LookIn, cela me retourne 0 fichier trouvé !
Quelqu'un a t'il une i´dée ?

Merci par avance.
Cdt,

 

[Risleure]

Re : Application.FileSearch qui ne retourne rien

Bonjour nougitch

Avec ce code j'ai un listing. Peut être te manque-t-il .searchSubFolders = true

Sub chercheFile()

Set fs = Application.FileSearch
With fs
    .LookIn = "C:\"
    .Filename = "*.exe"
    .SearchSubFolders = True
    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

End Sub

 

[nougitch]

Re : Application.FileSearch qui ne retourne rien

Saltu Risleure,
Merci pour ta réponse mais cela ne change rien.
Ca m'avait déjà fait ça dnas le passé, c'est bizzarre.

 

[Risleure]

Re : Application.FileSearch qui ne retourne rien

re,

Pour te rassurer avec ton code j'ai 0 fichier
Avec mon code je trouve 32 pour l'exemple donné C:\e*.exe

@+

 

[Risleure]

Re : Application.FileSearch qui ne retourne rien

Re,

Et pour finir il y a ce lien --> https://www.excel-downloads.com/threads/pb-application-filesearch.97345/

"Si F:\ est un lecteur réseau : ....l'administrateur système peut cocher la case "interdire la recherche" dans le paramétrage du serveur... alors, ....

Une fois la cas décochée, tout est rentré dans l'ordre."

 

[nougitch]

Re : Application.FileSearch qui ne retourne rien

Merci bcp pour ton aide Risleure.
Effectivement, il s'agit d'un lecteur réseau !
Bonne journée !