关于遍历(枚举)的一个问题~~~~~~请进来赐教。

[LngDotin]

这是一个老掉牙的问题，可是对于我来说是头一次做。
问题：一个文件夹下，既有文件，又有子文件夹，如何遍历出该文件夹下的所有文件和所有子文件夹下的所有文件？请高手留下宝贵的源码，以供参详。谢谢。

[lexchou]

dir /a /s

[BlueDeepOcean]

比如D盘下面A文件夹下面的所有文件：

TSearchRec sr;
TStringList *sl = new TStringList;
if (FindFirst(D:\\A\\*.*", faArchive, sr) == 0)
{
do
{
if (sr.Attr == faArchive)
sl->Add(sr.Name);
} while (FindNext(sr) == 0);
FindClose(sr);
}

for (int i = 0;i < sl->Count;i ++)
DeleteFile(sl->Strings[i]);

[samchoy]

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
AnsiString Path = Edit1->Text;

if (Path == "")
Path = ExtractFilePath(Application->ExeName);

ListBox1->Clear();
GetFiles(Path);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::GetFiles(AnsiString Path)
{
TSearchRec sr;

if (Path[Path.Length()] != '\\')
Path += "\\";
if (FindFirst(Path+"*.*", faArchive|faDirectory, sr) == 0)
{
do
{
if (sr.Attr == faArchive) // 文件
{
ListBox1->Items->Add(sr.Name);
}
else if (sr.Attr == faDirectory) // 目录以 <目录名> 表示
{
if (sr.Name != "." && sr.Name != "..")
{
ListBox1->Items->Add("<"+sr.Name+">");
GetFiles(Path+sr.Name); // 递归调用
}
}
} while (FindNext(sr) == 0);
FindClose(sr);
}
}

[BlueDeepOcean]

另一个函数：

bool DeleteDirTree(AnsiString filePath)
{
bool retVal =true;
AnsiString fileName;

WIN32_FIND_DATA foundFile;

HANDLE hFile = FindFirstFile((filePath+"\\*.*").c_str(),&foundFile);

if(hFile != INVALID_HANDLE_VALUE)
{
do
{
if(strcmp(foundFile.cFileName,".")!=0 && strcmp(foundFile.cFileName,"..")!=0)
{
fileName = filePath + "\\" + foundFile.cFileName;
if((foundFile.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)!=0)
{
DeleteDirTree(fileName.c_str());
RemoveDirectory(fileName.c_str());
}
else
{
FileSetAttr(fileName, FileGetAttr(fileName) & !faReadOnly);
DeleteFile(fileName.c_str());
}
}
}
while(FindNextFile(hFile,&foundFile)!=0);
}

FindClose(hFile);

return retVal;
}

[ly_liuyang]

递归算法嘛