Comment ouvrir un a un TOUS les .txt d'un dossier? [Résolu]
A voir également:
- Comment ouvrir un a un TOUS les .txt d'un dossier?
- Ouvrir et afficher tout les fichier.txt contenue dans un repertior ou un fichier ✓ - Forum - Java
- Ouvrir une autre applicaton qui est dans le meme dossier que l'application ✓ - Forum - VB.NET
- [HangMan game] Comment créer un .txt dans un dossier enfant ✓ - Forum - Java
- Lire tous les fichiers txt d'un dossier ✓ - Forum - Visual Basic 6
- Exportation de plusieurs fichiers .txt dans différents dossiers vers un fichier ✓ - Forum - Visual Basic 6
3 réponses
Essaie ça:
Dim sFichierTXT As String
sFichierTXT = Dir("C:\Mon Dossier\*.txt")
Do Until sFichierTXT = ""
MsgBox "C:\Mon Dossier" & sFichierTXT
sFichierTXT = Dir
Loop
Remplace "Mon Dossier" par ton dossier en question...
Dim sFichierTXT As String
sFichierTXT = Dir("C:\Mon Dossier\*.txt")
Do Until sFichierTXT = ""
MsgBox "C:\Mon Dossier" & sFichierTXT
sFichierTXT = Dir
Loop
Remplace "Mon Dossier" par ton dossier en question...
SAlut,
Ou alors si tu veux ouvrir Notepad pour chaque fichier:
(en se servant du code proposé par clementio)
Dim sFichierTXT As String
sFichierTXT = Dir("C:\Mon Dossier\*.txt")
Do Until sFichierTXT = ""
Call Shell("notepad C:\Mon Dossier" & sFichierTXT, vbMaximizedFocus)
sFichierTXT = Dir
Loop
@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
Ou alors si tu veux ouvrir Notepad pour chaque fichier:
(en se servant du code proposé par clementio)
Dim sFichierTXT As String
sFichierTXT = Dir("C:\Mon Dossier\*.txt")
Do Until sFichierTXT = ""
Call Shell("notepad C:\Mon Dossier" & sFichierTXT, vbMaximizedFocus)
sFichierTXT = Dir
Loop
@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée