Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic fichiers et repertoire

fichiers et repertoire

8 réponses
Avatar
lou
bonjour
comment enumerer tout les fichiers d'un repertoire
avec un msgbox

merci
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ng
Salut,

On peut utiliser la fonction implantée Dir() ou les Api (FinsFistFile,
FindNextFile, FindClose), avec dir :

Dim sFichier As String
sFichier = Dir("c:", vbNormal)
Do
MsgBox sFichier
sFichier = Dir
Loop Until sFichier = ""


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"lou" a écrit dans le message de news:
402e615c$0$317$
bonjour
comment enumerer tout les fichiers d'un repertoire
avec un msgbox

merci




Avatar
ng
Note: on pourrait aussi utiliser le controle filelistbox:
Dim i as Integer
FileList1.Path = "c:"
FileList1.Refresh
For i=0 to FileList1.ListCount - 1
MsgBox FileList1.List(i)
Next

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"lou" a écrit dans le message de news:
402e615c$0$317$
bonjour
comment enumerer tout les fichiers d'un repertoire
avec un msgbox

merci




Avatar
François Picalausa
Bonjour/soir,

"ng" a écrit dans le message de
news:
Dim sFichier As String
sFichier = Dir("c:", vbNormal)
Do
MsgBox sFichier
sFichier = Dir
Loop Until sFichier = ""



Personellement, je ferais un
Do Until
plutôt qu'un
Loop Until.
Qui te dit que le dossier contiendra un fichier? ;-)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com
Avatar
ng
Cela est vrai j'utilise bel et bien un while dans mon code pourtant :)

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"François Picalausa" a écrit dans le message de news:

Bonjour/soir,

"ng" a écrit dans le message de
news:
> Dim sFichier As String
> sFichier = Dir("c:", vbNormal)
> Do
> MsgBox sFichier
> sFichier = Dir
> Loop Until sFichier = ""

Personellement, je ferais un
Do Until
plutôt qu'un
Loop Until.
Qui te dit que le dossier contiendra un fichier? ;-)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com






Avatar
lou
un grand merci a vous 2
lou
"ng" a écrit dans le message de
news:
Note: on pourrait aussi utiliser le controle filelistbox:
Dim i as Integer
FileList1.Path = "c:"
FileList1.Refresh
For i=0 to FileList1.ListCount - 1
MsgBox FileList1.List(i)
Next

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"lou" a écrit dans le message de news:
402e615c$0$317$
> bonjour
> comment enumerer tout les fichiers d'un repertoire
> avec un msgbox
>
> merci
>
>




Avatar
Zoury
> Note: on pourrait aussi utiliser le controle filelistbox:



issshhh...
on pourrait... mais AMHA, ce n'est étiquement pas correct...
et j'imagine que tu es de mon avis. ;O)

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
Avatar
ng
Bien sûr, j'énumérais simplement les possibilités :) fin il y a bien le fso
aussi mais il ne vaut mieux pas en parler ici :)

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:
> Note: on pourrait aussi utiliser le controle filelistbox:

issshhh...
on pourrait... mais AMHA, ce n'est étiquement pas correct...
et j'imagine que tu es de mon avis. ;O)

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous




Avatar
Zoury
> fin il y a bien le fso
aussi mais il ne vaut mieux pas en parler ici :)



hehe! :OD