[cpp]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
　TSearchRec Sr;
　int Attributes = faAnyFile;　
　if (FindFirst(“C:\\tmp\\*.*”, Attributes, Sr) == 0)
{
　　 do
{
　　　 if ((Sr.Attr & Attributes) == Sr.Attr)
　　　　 ListBox1->Items->Add(Sr.Name);
　　　
　　 } while (FindNext(Sr) == 0);
　　 FindClose(Sr);
　}
[/cpp]
Programmers should be trusted. If your brain surgeon told you the operation you need takes five hours, would you pressure him to do it in three? 
cu placere
multumesc