Funzioni e Sintassi

Cartelle e sottocartelle

Questa funzione restituisce i risultati delle cartelle e tutti i files in esse contenuti

void CercaDirectory (String Directory, TListBox *Lista,bool Recursive)
{
bool FileTrovato;
String FileX;
TSearchRec Ricerca;
Directory=IncludeTrailingPathDelimiter(Directory);
FileTrovato=FindFirst(Directory + "*.*", faAnyFile,Ricerca)==0;
while (FileTrovato)
{
if(Ricerca.Name[1]!='.')
{
if(Ricerca.Attr != faDirectory)
{
FileX=Directory + Ricerca.Name;
Lista->AddItem(FileX,NULL);
}
else
{
FileX=Directory + IncludeTrailingPathDelimiter(Ricerca.Name);
Lista->AddItem(FileX,NULL);
CercaDirectory(FileX,Lista,true);
}
}
FileTrovato=FindNext(Ricerca)==0;
}
FindClose(Ricerca);
return ;

}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String hh;
hh=ExtractFileDir(Application->ExeName);
ListBox1->Clear();
CercaDirectory(ExtractFileDir(Application->ExeName) + "\\",ListBox1,true);
}

• » Invia tramite EMAIL
• » Versione per la STAMPA
• » Le vostre opinioni