Lister les noms de fichiers d'un répertoire donné

PhiChe 6 Messages postés lundi 5 février 2018Date d'inscription 28 février 2018 Dernière intervention - 15 févr. 2018 à 13:52 - Dernière réponse : cs_Le Pivert 5144 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 19 mai 2018 Dernière intervention
- 17 févr. 2018 à 14:15
Bonjour.
Je cherche à lister (par exemple dans une listbox), le nom de tous les fichiers .JPG d'un répertoire donné qui contiendrait également d'autres types de fichiers, et ce de manière automatique et transparente pour l'utilisateur.
Par exemple :
image A.jpg
image C.jpg
image F.jpg
Je sèche sur le sujet depuis... trop longtemps.
Quelqu'un peut-il m'aider ?
Afficher la suite 

Votre réponse

6 réponses

cs_Le Pivert 5144 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 19 mai 2018 Dernière intervention - 15 févr. 2018 à 14:41
0
Utile
Bonjour,

voir ceci, il suffit de mettre l'extension choisie:

http://codes-sources.commentcamarche.net/source/62769-lister-un-repertoire-par-extension-dans-une-listbox
denisbertin 167 Messages postés lundi 22 avril 2013Date d'inscription 14 mai 2018 Dernière intervention - 17 févr. 2018 à 13:24
Dans un traitement complètement automatisé,
l'affichage de la boîte de dialogue du choix de
ces fichiers pourrait être omise, pour ne pas
interrompre par une requête manuel l'utilisateur!
cs_Le Pivert 5144 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 19 mai 2018 Dernière intervention - 17 févr. 2018 à 13:38
Bonjour denisbertin

oui bien sur il suffit de mettre le chemin du dossier en dur ici:

Dim di As New IO.DirectoryInfo(opendir.SelectedPath) 


a la place de
opendir.SelectedPath
et supprimer la boite de dialogue

@+ Le Pivert
denisbertin 167 Messages postés lundi 22 avril 2013Date d'inscription 14 mai 2018 Dernière intervention - 17 févr. 2018 à 13:49
Je ne programme pas en Basic mais en Pascal (mon langage de prédilection) voici un exemple de code avec cette formulation :

FileAttrs := faAnyFile;
if SysUtils.findfirst(path+nom_joker,FileAttrs, sr) = 0 then
begin
repeat
if (sr.name<>'.') and (sr.name<>'..') then
begin
// Ajouter sr.name à la listbox
end;
until (SysUtils.FindNext(sr) <> 0) or bouton_stop.stopping;
end
SysUtils.FindClose(sr);
denisbertin 167 Messages postés lundi 22 avril 2013Date d'inscription 14 mai 2018 Dernière intervention - 17 févr. 2018 à 13:59
Pour mémoire IO signifie Input/output, entrée ou sortie.
cs_Le Pivert 5144 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 19 mai 2018 Dernière intervention - 17 févr. 2018 à 14:15
Une petite recherche sur google t'aurait aider à trouver la signification de IO

https://msdn.microsoft.com/fr-fr/library/system.io.file(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

PS je ne vois pas ce que fait un code Pascal dans le forum VB.Net!
Commenter la réponse de cs_Le Pivert

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.