Lister les noms de fichiers d'un répertoire donné
PhiChe
Messages postés
6
Date d'inscription
lundi 5 février 2018
Statut
Membre
Dernière intervention
28 février 2018
-
15 févr. 2018 à 13:52
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 17 févr. 2018 à 14:15
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 17 févr. 2018 à 14:15
A voir également:
- Lister les noms de fichiers d'un répertoire donné
- Generateur nom de domaine - Forum Visual Basic
- Donne moi une lettre au hasard ✓ - Forum Java
- Donne moi une couleur au hasard ✓ - Forum PHP
- Lettre aléatoire - Forum Visual Basic
- Chaine de caracteres aléatoire - Forum C / C++ / C++.NET
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
137
15 févr. 2018 à 14:41
15 févr. 2018 à 14:41
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
voir ceci, il suffit de mettre l'extension choisie:
http://codes-sources.commentcamarche.net/source/62769-lister-un-repertoire-par-extension-dans-une-listbox
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!