请问如何使用bcb语言采用递归方法遍历指定目录下所有子目录和文件？
请问如何使用bcb遍历指定目录下所有子目录和文件？我的代码错在哪里？请指出，谢谢！
void __fastcall TForm1::myfunc(AnsiString mypath,TSearchRec mysr)
{
if(FindFirst(mypath,faAnyFile,mysr)==0)
{
while(FindNext(mysr)==0)
{
if(mysr.Name!="."&&mysr.Name!="..")
{
if(mysr.Attr==faDirectory)
{
ListBox1->Items->Add(mysr.Name);
mypath="f:\\temp1\\"+mysr.Name;
myfunc(mypath,mysr);
}
else
{
ListBox2->Items->Add(mysr.Name);
}
}
}
}
FindClose(mysr);
}
[解决办法]
去bcb区吧,你的贴我已经回复,呵呵
