• 全部
  • Windows SDK/API
  • 基础类
  • ActiveX
  • 数据库及相关技术
  • 网络及通讯开发
  • VCL组件使用和开发
  • 问答

请问,如何列举一个目录下的所有文件以及文件夹?

keikai 2001-09-05 03:27:54
Thanks......
...全文
67 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wangledong 2001-09-05
到网上找找吧,不过自己编也不麻烦。
回复
keikai 2001-09-05
谢谢,给分。
还有,有没有什么类似TDirectoryListBox的控件可以直接把目录里面的文件以及文件夹给列出来。
回复
chen_pb 2001-09-05
不错,我正需要这个
回复
抬头看路 2001-09-05
TSearchRec sr;
int iAttributes = faAnyFile | faDirectory;
if(FindFirst(Path + "*.*", iAttributes, sr) == 0)
{
do
{
if((sr.Attr & iAttributes) == sr.Attr)
if(sr.Attr & faDirectory)
是个目录
else
是个文件
}while (FindNext(sr) == 0);
FindClose(sr);
}
回复
wangledong 2001-09-05
这是我编的一个删除文件的函数,你看看吧!
void __fastcall TForm1::FoundInfFile ( String Dir)
{
TSearchRec sr;
int iAttributes = 0;
iAttributes |= faAnyFile;
if ( FindFirst( Dir+"*.*", iAttributes, sr) == 0 )
{
try{
do{
if ( sr.Name == "." || sr.Name == ".." )
continue;
if ( sr.Attr == faDirectory )
FoundInfFile ( Dir+sr.Name+"\\" );//找到一个目录
else
{
StatusBar1->Panels->Items[1]->Text = Dir + "\\" + sr.Name;
Application->ProcessMessages();
DeleteFile ( Dir + "\\" + sr.Name );//删除文件
}
Application->ProcessMessages();
}while ( FindNext ( sr ) == 0 );
StatusBar1->Panels->Items[1]->Text = Dir;
Application->ProcessMessages();

RemoveDirectory ( Dir.c_str() );//删除子目录
FindClose(sr);
}
catch(...){
FindClose(sr);
}
}
}
回复
相关推荐
发帖
C++ Builder
创建于2007-08-02

1.3w+

社区成员

C++ Builder相关内容讨论区
申请成为版主
帖子事件
创建了帖子
2001-09-05 03:27
社区公告
暂无公告