Lister les fichier d'un dossier!!?
TaZ83
Messages postés
52
Date d'inscription
vendredi 10 janvier 2003
Statut
Membre
Dernière intervention
6 février 2004
-
13 avril 2003 à 20:47
TaZ83 Messages postés 52 Date d'inscription vendredi 10 janvier 2003 Statut Membre Dernière intervention 6 février 2004 - 14 avril 2003 à 12:58
TaZ83 Messages postés 52 Date d'inscription vendredi 10 janvier 2003 Statut Membre Dernière intervention 6 février 2004 - 14 avril 2003 à 12:58
A voir également:
- Lister les fichier d'un dossier!!?
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Python lister les fichiers d'un dossier ✓ - Forum Python
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Traitement dédoublonnage fichier ✓ - Forum C++ & C++ .NET
4 réponses
cs_PROGRAMMIX
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
2
13 avril 2003 à 21:57
13 avril 2003 à 21:57
Un exemple parmi d'autres:
dim Répertoire As String
dim FichierTrouvé As String
Répertoire = "C:\Mes documents"
FichierTrouvé = Dir(Répertoire &"\*.*")
While FichierTrouvé<>""
Text1.Text = Text1.Text & vbcrlf &FichierTrouvé
FichierTrouvé = Dir()
Wend
Mais c'est manière de procéder ne te donnera que la liste des fichiers et non des sous-répertoires
dim Répertoire As String
dim FichierTrouvé As String
Répertoire = "C:\Mes documents"
FichierTrouvé = Dir(Répertoire &"\*.*")
While FichierTrouvé<>""
Text1.Text = Text1.Text & vbcrlf &FichierTrouvé
FichierTrouvé = Dir()
Wend
Mais c'est manière de procéder ne te donnera que la liste des fichiers et non des sous-répertoires
TaZ83
Messages postés
52
Date d'inscription
vendredi 10 janvier 2003
Statut
Membre
Dernière intervention
6 février 2004
14 avril 2003 à 11:52
14 avril 2003 à 11:52
Salut!
ok j'ai tester et sa marche nikel!!!:-)
mais j'ai voulu améliorer le prog et ....:-(
voilà la nouvelle source:
Dim Répertoire As String
Dim FichierTrouvé As String
Private Sub Command1_Click()
Text1.Text = " LISTE:"
Répertoire = FileListBox
FichierTrouvé = Dir(Répertoire & "\*.*")
While FichierTrouvé <> ""
Text1.Text = Text1.Text & vbCrLf & FichierTrouvé
FichierTrouvé = Dir()
Wend
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
MsgBox "Coded by [TaZ!]....Pour toutes remarque: informatik83@aol.com", vbExclamation, "A propos": End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
File1.Pattern = "*.*"
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
File1.Path = Dir1.Path
File1.Pattern = "*.*"
End Sub
'le pb vient de quand je clike sur le bouton le prog me liste la racine de "e:" et j ene sais pas pourkoi!!?
A tu une idée pour faire marche tout sa?? :-)
Merci d'avance...
@+
:p
ok j'ai tester et sa marche nikel!!!:-)
mais j'ai voulu améliorer le prog et ....:-(
voilà la nouvelle source:
Dim Répertoire As String
Dim FichierTrouvé As String
Private Sub Command1_Click()
Text1.Text = " LISTE:"
Répertoire = FileListBox
FichierTrouvé = Dir(Répertoire & "\*.*")
While FichierTrouvé <> ""
Text1.Text = Text1.Text & vbCrLf & FichierTrouvé
FichierTrouvé = Dir()
Wend
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
MsgBox "Coded by [TaZ!]....Pour toutes remarque: informatik83@aol.com", vbExclamation, "A propos": End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
File1.Pattern = "*.*"
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
File1.Path = Dir1.Path
File1.Pattern = "*.*"
End Sub
'le pb vient de quand je clike sur le bouton le prog me liste la racine de "e:" et j ene sais pas pourkoi!!?
A tu une idée pour faire marche tout sa?? :-)
Merci d'avance...
@+
:p
cs_PROGRAMMIX
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
2
14 avril 2003 à 12:45
14 avril 2003 à 12:45
Théoriquement en remplaçant
Répertoire = FileListBox
par
Répertoire = File1.Path
A+
Répertoire = FileListBox
par
Répertoire = File1.Path
A+
TaZ83
Messages postés
52
Date d'inscription
vendredi 10 janvier 2003
Statut
Membre
Dernière intervention
6 février 2004
14 avril 2003 à 12:58
14 avril 2003 à 12:58
Nikel!!!!
Merci beaucoup!!!
@+
:p
Merci beaucoup!!!
@+
:p
