遍历目录下所有文件

void __fastcall GetFiles(AnsiString Dir)
{
    TSearchRec sr;
    TStringList *FileList=new TStringList(); //保存文件名的List
    if (FindFirst( Dir+"*.*",faAnyFile,sr) == 0)
    {
        try {
            do{
                if (sr.Name=="." || sr.Name=="..")
                    continue;
                if ((sr.Attr & faDirectory) != 0) {
                    //找到一个目录
                    //不嵌套查詢,如果要嵌套查詢,去掉 continue 和註釋即可
                    //GetFiles(Dir+sr.Name + "\\
"); //递归调用
                    continue;
                }
                else {
                    FileList->Add(sr.Name);
                }
            }while (FindNext(sr) == 0);
            FindClose(sr);
        }
        catch(...) {            
            FindClose(sr);
        }
    }
}

阅读更多
版权声明:原创文章转载时请附上原文链接 https://blog.csdn.net/aniven/article/details/556303
文章标签: list
个人分类: C++/BCB开发
上一篇使窗体的关闭按钮变灰 (但可用Alt+F4关闭)
下一篇列出局域网內所有SQL Server
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭