Discussion :

[thewarior]

bonjour,
je me retourne à vous pour espérer avoir de l'aide
j'ai une listbox qui m'affiche tous les fichers d'un repertoire et sousrepertoire
j'aierais que l'affichage se limite seulement aux noms des ficher sans le chemain complet
voici le code qui fonctionne tres bien sauf que il me manque un truc pour afficher seulement les noms des fichier

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
21
22
23
24
Private Sub CommandButton1_Click()
ListBox1.Clear
Dim fs
Set fs = Application.FileSearch
B = UserForm1.TextBox1.Text
z = ComboBox1.Text
    If TextBox1.Text = "" Then
MsgBox "Veuillez saisir vos critéres de recherche"
    Else
With fs
.LookIn = ThisWorkbook.Path & "\" & z & "\"
.SearchSubFolders = True
.filename = B
 
    If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
 
ListBox1.AddItem .FoundFiles(i)
Next i
    Else: MsgBox "Aucuns Fichiers Trouvés, veuillez saisir vos critéres de recherche "
    End If
End With
    End If
End Sub

[egautier18]

Bonjour,

Pour afficher un nom de fichier avec son extension il faut utiliser Path.GetFileName

http://msdn.microsoft.com/fr-fr/libr...v=vs.110).aspx

A+

[thewarior]

merci pour ta reponse sauf que ça ne m'aide pas bcp j'aimerais laisser mon code intact pour ne pas perturber l'affichage dans la listbox

[egautier18]

Je supose que .FoundFiles est une liste de string ?

Si c'est le cas, tu peux changer ta boucle par

Code :

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

1
2
3
4
5
6
 
For each fichierFind as string in .FoundFiles
 
        listBox1.Items.Add(path.getfilename(fichierFind))
 
Next

[thewarior]

excusez mon ignorance
je n'arrive pas a compiler pourrais tu me mettre le code entier qui va avec mon code
merci

[Shennong]

Voici un exemple d'un code que j'utilise. Il affiche le nom du fichier+extension dans le listbox :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
        cheminconsole = chemin + "ROMS\ATARI7800\" 'ça c'est juste pour mon appli
        Dim files = My.Computer.FileSystem.GetFiles(cheminconsole, FileIO.SearchOption.SearchAllSubDirectories, "*.*") 'je crée une collection de tous les fichiers de mon chemin nommée files
        For Each rom As String In files 'je crée une boucle pour énumérer les fichiers de ma collection
            If rom.Contains(".a78") Then 'ici si le fichier comporte telle extension ...
                resultat = IO.Path.GetFileName(rom) 'je récupère juste le nom ==> c'est ce qui t'intéresses
                lst_roms.Items.Add(resultat) 'puis je l'ajoute à mon listbox
            End If
        Next
        End If

Je t'ai mis un bout de code complet pour que tu comprennes mieux comment j'ai fais.

Dis-moi si cela te conviens !

Cordialement,

--
Shennong

[thewarior]

Voici un exemple d'un code que j'utilise. Il affiche le nom du fichier+extension dans le listbox :
...

merci pour ta reponse
juste une question : es ce que remplace mon code par celui que tu m'as donné ou bien il faudra que je l'adapte a mon code??

[Shennong]

Ah oui ! j'avais pas fait attention, j'étais parti du principe que tu étais sur visual studio en vb.NET moi !

Effectivement, si tu cherches la réponse en vba, je ne vais aps pouvoir t'aider, je ne connais pas plus que ça, je sais que la syntaxe ressemble sur certaines choses, mais c'est tout.

Désolé.

Cordialement,

--
Shennong

[clementmarcotte]

Bonjour,

Ah oui ! j'avais pas fait attention, j'étais parti du principe que tu étais sur visual studio en vb.NET moi !

C'est lui qui n'a pas fait attention et qui a foutu sa question dans le forum VB.net