Récupérer et traiter tout les fichiers l'un après l'autre d'un répertoire donné
Résolu
diablot2
Messages postés
20
Date d'inscription
mardi 2 août 2005
Statut
Membre
Dernière intervention
20 mai 2006
-
24 févr. 2006 à 11:32
diablot2 Messages postés 20 Date d'inscription mardi 2 août 2005 Statut Membre Dernière intervention 20 mai 2006 - 24 févr. 2006 à 12:15
diablot2 Messages postés 20 Date d'inscription mardi 2 août 2005 Statut Membre Dernière intervention 20 mai 2006 - 24 févr. 2006 à 12:15
A voir également:
- Récupérer et traiter tout les fichiers l'un après l'autre d'un répertoire donné
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Repertoire des installations ✓ - Forum C# / .NET
- Récupérer et afficher les données d'une bdd mysql en php ✓ - Forum PHP
- Python lister les fichiers d'un dossier ✓ - Forum Python
- Recuperer l'id d'un element javascript ✓ - Forum Javascript / DHTML
2 réponses
jrivet
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
24 févr. 2006 à 11:54
24 févr. 2006 à 11:54
Salut,
Essaie de voir si ce qui suit peut t'aider.
Pas tester: mais normalement ca liste les fichier csv contenu dans MonRepertoire et ca appelle la fonction FonctionCSV (ici ne fais qu afficher le nom du fichier)
Private Sub Form_Load()
Dim MonRepertoire As String
Dim MonFichierCSV As String
MonRepertoire = "C:\DIRCSV"
MonFichierCSV = Dir(MonRepertoire & "*.csv") ' Extrait la première entrée.
Do While MonFichierCSV <> "" ' Commence la boucle.
' contenant le dossier courant.
If MonFichierCSV <> "." And MonFichierCSV <> ".." Then
Call FonctionCSV(MonFichierCSV)
End If
MonFichierCSV = Dir ' Extrait l'entrée suivante.
Loop
End Sub
Private Sub FonctionCSV(NomFichierCSV As String)
MsgBox NomFichierCSV
End Sub
Voili
@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
Essaie de voir si ce qui suit peut t'aider.
Pas tester: mais normalement ca liste les fichier csv contenu dans MonRepertoire et ca appelle la fonction FonctionCSV (ici ne fais qu afficher le nom du fichier)
Private Sub Form_Load()
Dim MonRepertoire As String
Dim MonFichierCSV As String
MonRepertoire = "C:\DIRCSV"
MonFichierCSV = Dir(MonRepertoire & "*.csv") ' Extrait la première entrée.
Do While MonFichierCSV <> "" ' Commence la boucle.
' contenant le dossier courant.
If MonFichierCSV <> "." And MonFichierCSV <> ".." Then
Call FonctionCSV(MonFichierCSV)
End If
MonFichierCSV = Dir ' Extrait l'entrée suivante.
Loop
End Sub
Private Sub FonctionCSV(NomFichierCSV As String)
MsgBox NomFichierCSV
End Sub
Voili
@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
diablot2
Messages postés
20
Date d'inscription
mardi 2 août 2005
Statut
Membre
Dernière intervention
20 mai 2006
24 févr. 2006 à 12:15
24 févr. 2006 à 12:15
apres quelque petite modif ca marche merci