Discussion :

[Invité]

Bonjour, voila j'aimerais récupérer les noms des fichier d'un répertoire (je n'ai pas besoins d'aller dans les sous dossier).

Pour le moment j'ai ceci :

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
25
26
27
Private Sub bt_test_Click()
    Dim objShell As Object, objFolder As Object, oFolderItem As Object
    Dim Chemin As String
    Dim Nom As String
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
 
    On Error Resume Next
    Set oFolderItem = objFolder.Items.Item
    Chemin = oFolderItem.Path
    Nom = Mid(Chemin, InStrRev(Chemin, "\") + 1)
    MsgBox Chemin & "    nom=" & Nom
 
    Dim FileName As String
    Dim Path As String
    Dim Filter As String
 
    Path = Chemin
 
    FileName = Dir(Path)
    While FileName <> ""
        Debug.Print FileName
        FileName = Dir
    Wend
 
End Sub

La boucle pour renvoyer le nom des fichiers fonctionnent... de temps en temps
Des fois j'ai bien les fichiers qui sont retournés, pour d'autres dossiers non...

Ai-je une erreur dans mon code où il faut faire autre chose ?

Merci d'avance

[marot_r]

Que contient "Path" ?

Un truc avec des caractères génériques du genre "c:\toto\titi\tata\*.*" ou un nom de fichier complet du genre "c:\toto\titi\tata\monFichier.txt" ?

A+

[Invité]

Bonjour,

Path contient quelque chose du genre "c:\tata" et nom pas le chemin complet d'un fichier


Problème résolu

En fait il fallait préciser dans le passe qu'on cherchait tous les fichiers je pense.

Code :

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

Path = Chemin & "\*.*"

En faisant cela tout marche bien