Bonjour le forum .
Je souhaiterais lister tous les noms de fichier situé a l'interieur d'un dossier et celà grace a l'indication du chemin de ce fichier ( t1cable: t1cable: ) .
Pour l'instant j'ai fait ça , qui ne marche pas du tout :
[cpp]Option Explicit
Public Sub ContenuDuDossier(ByVal strDossier As String)
Dim strFichier As String
'//Vérifier que le dossier existe bien
If Dir(strDossier, vbDirectory) = "" Then
MsgBox "Dossier introuvable "
Exit Sub
End If
'//Lister tous les fichiers du dossier
strFichier = Dir(strDossier, vbNormal)
While strFichier <> ""
'// Afficher le nom du fichier
ComboBoxLogoMarques.Value = strFichier.Value
' //Lire le fichier suivant
strFichier = Dir
Wend
End Sub
Private Sub ComboBoxLogoMarques_Change()
Dim chemin As String
chemin = TxtBoxLogoMarques.Value ' //on renseigne le chemin du fichier
Nomfichier (chemin)
End Sub
[/cpp]
Dejà est ce que c'est possible ?
Merci a ceux qui répondront .
Je souhaiterais lister tous les noms de fichier situé a l'interieur d'un dossier et celà grace a l'indication du chemin de ce fichier ( t1cable: t1cable: ) .
Pour l'instant j'ai fait ça , qui ne marche pas du tout :
[cpp]Option Explicit
Public Sub ContenuDuDossier(ByVal strDossier As String)
Dim strFichier As String
'//Vérifier que le dossier existe bien
If Dir(strDossier, vbDirectory) = "" Then
MsgBox "Dossier introuvable "
Exit Sub
End If
'//Lister tous les fichiers du dossier
strFichier = Dir(strDossier, vbNormal)
While strFichier <> ""
'// Afficher le nom du fichier
ComboBoxLogoMarques.Value = strFichier.Value
' //Lire le fichier suivant
strFichier = Dir
Wend
End Sub
Private Sub ComboBoxLogoMarques_Change()
Dim chemin As String
chemin = TxtBoxLogoMarques.Value ' //on renseigne le chemin du fichier
Nomfichier (chemin)
End Sub
[/cpp]
Dejà est ce que c'est possible ?
Merci a ceux qui répondront .