Discussion :

[tarnx]

Bonjour à tous,

j'ai réalisé un petit programme qui permet de rechercher des fichiers, et affiche les noms de ces fichiers trouvés dans une liste.
Il fonctionne parfaitement du moment que le nom du fichier est exact.

Je cherche donc comment réaliser la même opération avec seulement une partie du nom (récupéré via une zone de texte).

Voici une partie de mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        strFichier = strChemin & "\" & strNom & ".xls"
        If oFSO.FileExists(strFichier) Then
            Set oFl = oFSO.GetFile(strFichier)
            Me.lstTrouve.AddItem (oFL.name)
        End If

Merci de bien vouloir m'apporter votre aide

[sendme]

Bonjour,

As tu essayé avec le caractère "*" ?

[tarnx]

Oui j'ai essayé comme ceci, mais aucun résultat.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strFichier = strChemin & "\* " & strNom & " *"

[sendme]

et comme ceci ?
'*" & StrNom & "*'

[tarnx]

Toujours aucun résultat.

[tarnx]

J'ai trouvé comment résoudre mon problème en utilisant une autre technique.

Au besoin, voilà le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub cmdOk_Click()
 
 strFile = Me.txtnom
 Me.lstResult.RowSourceType = "Value List"
 
  With Application.FileSearch
 
    .NewSearch
    .RefreshScopes
    .LookIn = "D:\Analyse"
    .FileName = "*.*"
    .FileName = "*" & strFile & "*.*"
    .SearchSubFolders = True
    .Execute
    For Ctr = 1 To .FoundFiles.Count
       Me.lstResult.AddItem (Right(.FoundFiles(Ctr), Len(.FoundFiles(Ctr)) - 11))
    Next
  End With
 
End Sub

Tous les fichiers contenant la chaine de caractères saisie sont affichés dans la zone de liste lstResult.