PhiChe
Messages postés6Date d'inscriptionlundi 5 février 2018StatutMembreDernière intervention28 février 2018
-
15 févr. 2018 à 13:52
cs_Le Pivert
Messages postés7893Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention19 mai 2023
-
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 ?
denisbertin
Messages postés248Date d'inscriptionlundi 22 avril 2013StatutMembreDernière intervention13 mai 20231 Modifié le 17 févr. 2018 à 13:29
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
Messages postés7893Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention19 mai 2023136 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
Messages postés248Date d'inscriptionlundi 22 avril 2013StatutMembreDernière intervention13 mai 20231 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
Messages postés248Date d'inscriptionlundi 22 avril 2013StatutMembreDernière intervention13 mai 20231 17 févr. 2018 à 13:59
Pour mémoire IO signifie Input/output, entrée ou sortie.
cs_Le Pivert
Messages postés7893Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention19 mai 2023136 17 févr. 2018 à 14:15
Une petite recherche sur google t'aurait aider à trouver la signification de IO
Modifié le 17 févr. 2018 à 13:29
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!
17 févr. 2018 à 13:38
oui 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
17 févr. 2018 à 13:49
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);
17 févr. 2018 à 13:59
17 févr. 2018 à 14:15
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!