lunedì, Aprile 22, 2024
HomeProgrammazioneDelphi, leggere il contenuto di una directory...

Delphi, leggere il contenuto di una directory…

Oggi vediamo un piccolo snippets delphi, una procedura che restituisce la lista di file e directory presenti in una cartella e che accetta i caratteri jolly, ecco la procedura e un piccolo esempio di come funziona…


procedure FindFiles (const Path: String;
                          Attr: Integer;
                          List: TStrings) ;
var
   Res: TSearchRec;
   EOFound: Boolean;
begin
   EOFound:= False;
   if FindFirst(Path, Attr, Res) < 0 then
     exit
   else
     while not EOFound do begin
       List.Add(Res.Name) ;
       EOFound:= FindNext(Res) <> 0;
     end;
   FindClose(Res) ;
end; 

// ListBox1 è un componente TListBox presente sul form, in alternativa si può usare TStringList...
FindFiles('C:\Windows\*.exe',faAnyFile,ListBox1.Items);

BisonTech.net partecipa al Programma Affiliazione Amazon EU, e ad altri programmi di affiliazione che consente al sito di percepire una commissione pubblicitaria fornendo link di affiliazione su amazon e altri partner.

Stefano
Stefano
Sono un tech enthusiast, appassionato di programmazione, marketing e videogames. Adoro sperimentare tutto ciò che la tecnologia ha da offrire. Lavoro con la tecnologia da oltre 20 anni.

LASCIA UN COMMENTO

Per favore inserisci il tuo commento!
Per favore inserisci il tuo nome qui

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.

ULTIMI POST

POPOLARI

SMANETTONI