急!急!急!急!急!

wpeng 2000-06-26 04:03:00
如何删除一个目录下的所有文件?
...全文
97 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
wangminfu 2000-06-30
  • 打赏
  • 举报
回复
1。直接调用外部过程deltree;
2。编写递归过程,如果目录中有目录,递归调用!
Wingsun 2000-06-26
  • 打赏
  • 举报
回复
BCB下可以这样用:
WIN32_FIND_DATA find_data;
AnsiString TempFiles;
TempFiles="C:\\temp\\*.*";
find_data.dwFileAttributes =FILE_ATTRIBUTE_TEMPORARY;
HANDLE hfindResult;
AnsiString DelFile("C:\\temp\\");
hfindResult=FindFirstFile(TempFiles.c_str(),&find_data);
if(hfindResult!=INVALID_HANDLE_VALUE)
{
DelFile+=find_data.cFileName;
DeleteFile(DelFile);
while(FindNextFile(hfindResult,&find_data)!=0)
{
AnsiString F="C:\\Temp\\"+find_data.cFileName;
DeleteFile(F.c_str());
}
}
Wingsun 2000-06-26
  • 打赏
  • 举报
回复
FindFirstFile(....);
while(FindNextFile(....))
{
....
DeleteFile(File);
....
}

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧