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 ?
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!
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);
- Messages postés
-
231
- Date d'inscription
- lundi 22 avril 2013
- Statut
- Membre
- Dernière intervention
- 26 janvier 2021
1l'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!
- Messages postés
-
7378
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 14 mai 2021
122oui bien sur il suffit de mettre le chemin du dossier en dur ici:
a la place de et supprimer la boite de dialogue
@+ Le Pivert
- Messages postés
-
231
- Date d'inscription
- lundi 22 avril 2013
- Statut
- Membre
- Dernière intervention
- 26 janvier 2021
1FileAttrs := 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);
- Messages postés
-
231
- Date d'inscription
- lundi 22 avril 2013
- Statut
- Membre
- Dernière intervention
- 26 janvier 2021
1- Messages postés
-
7378
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 14 mai 2021
122https://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!