#include <stdio.h>
#include <dos.h>
void ListFiles(AnsiString path, TStrings* List)
{
// Yoa i?ioaao?a auaiaeo nienie oaeeia e aucuaaao
// naio naay aey anao eaoaeiaia
TSearchRec sr;
if (FindFirst(path+"*.*", faAnyFile, sr) == 0)
{
do
{
if (sr.Attr & faDirectory)
{
if (sr.Name!=".")
if (sr.Name!="..")
{
ListFiles(path+sr.Name+"\\",List);
// ?aeo?neaiue aucia
}
}
else
{
AnsiString Ext=ExtractFileExt(sr.Name).UpperCase();
if (Ext=="DIR" || Ext=="")
List->Add(path+sr.Name);
}
}
while (FindNext(sr) == 0);
FindClose(sr); }
Application->ProcessMessages();
}
//-------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ListFiles("c:\\",Memo1->Lines);
ShowMessage("FINISH");
}