A voir également:
- Vba copier un fichier et le renommer
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Vba ouvrir un fichier excel sans l'afficher ✓ - Forum Visual Basic 6
- Vba formular1c1 - Forum Visual Basic
- Vba modulo - Forum Visual Basic
2 réponses
en fait ce que je veux faire cest compter le nombre de fichiers presents ds le dossier puis faire une boucle pour ou a chake fois je traite un fichier different de la meme facon
je pense pouvoir t'aider.
insere 3 controle : DriveListBox, DirListBox et FileListBox
en proprité tu met visible = False
ensuite en form_load, tu mets :
Private Sub Form_Load()
Dim chemin As String
Drive1.Drive = "c:"
chemin = "C:\MesDocs\Photos"
Dir1.Path = chemin
End Sub
/*si tu veux effectuer un filtre sur des fichiers spéciaux, exemple .bmp fo faire ca*/
/*ou file1 est le nom de ton controle FileListBox
File1.pattern="*.bmp"
/*ensuite la procedure qui suit est celle associée a un bouton*/
/*ta boucle tourne comme ca*/
/*je ne connais pas la syntaxe exacte*/
moncontrole = File1.FileName
For Each moncontrole In File1
/*tous tes fichiers prennent l'extansion .jpg*/
right(moncontrole,4)=".jpg"
Next
Voila je pense que ca tourne :) Si ta un Prob mail moi ;)
insere 3 controle : DriveListBox, DirListBox et FileListBox
en proprité tu met visible = False
ensuite en form_load, tu mets :
Private Sub Form_Load()
Dim chemin As String
Drive1.Drive = "c:"
chemin = "C:\MesDocs\Photos"
Dir1.Path = chemin
End Sub
/*si tu veux effectuer un filtre sur des fichiers spéciaux, exemple .bmp fo faire ca*/
/*ou file1 est le nom de ton controle FileListBox
File1.pattern="*.bmp"
/*ensuite la procedure qui suit est celle associée a un bouton*/
/*ta boucle tourne comme ca*/
/*je ne connais pas la syntaxe exacte*/
moncontrole = File1.FileName
For Each moncontrole In File1
/*tous tes fichiers prennent l'extansion .jpg*/
right(moncontrole,4)=".jpg"
Next
Voila je pense que ca tourne :) Si ta un Prob mail moi ;)
