工控编程吧

标题: 上位机MFC删除非空文件夹 [打印本页]

---

作者: qq263946146    时间: 2017-7-2 13:24
标题: 上位机MFC删除非空文件夹
(, 下载次数: 4)

上传

点击文件名下载附件
删除一个文件夹可以用函数RemoveDirectory;
但文件夹不为空时，函数就会失败，
所以最直接的方法就是递归调用此函数删除文件夹内所有文件夹，
及调用函数DeleteFile删除全部文件
当前例程实现了这功能，效果如图；
点击<>选择要删除的文件夹>程序弹出文件夹选择对话框，确认后显示选择要删除的文件夹名称；
点击<执行删除>删除事先选择的文件夹；
实现过程:
先创建对话框工程，如界面添加控件，关联按钮1点击函数，实现文件夹选择功能

1. #define BIF_NEWDIALOGSTYLE 0x00000040
   
2. void CGkbc8Dlg::OnButton1()
   
3. {       
   
4.         BROWSEINFO      sInfo;  
   
5.         ::ZeroMemory(&sInfo, sizeof(BROWSEINFO));  
   
6.         sInfo.pidlRoot    = 0;  
   
7.         sInfo.lpszTitle   = _T("请选择一个文件夹：");  
   
8.         sInfo.ulFlags     = BIF_DONTGOBELOWDOMAIN | BIF_RETURNONLYFSDIRS | BIF_NEWDIALOGSTYLE | BIF_EDITBOX;  
   
9.         sInfo.lpfn        = NULL;  
   
10.         LPITEMIDLIST lpidlBrowse = ::SHBrowseForFolder(&sInfo);  // 显示文件夹选择对话框   
    
11.         if (lpidlBrowse != NULL)  
    
12.         {  
    
13.                 TCHAR  cFolderPath[MAX_PATH] = {0};  
    
14.                 if (::SHGetPathFromIDList(lpidlBrowse,cFolderPath))  // 取得文件夹名     
    
15.                         SetDlgItemText(IDC_EDIT1,cFolderPath);
    
16.         }  
    
17.         if(lpidlBrowse != NULL)  
    
18.                 ::CoTaskMemFree(lpidlBrowse);  
    
19. }

复制代码

2.添加递归删除文件与文件夹函数，再关联删除按钮的点击函数

1. BOOL RecursiveDelete(CString szPath)
   
2. {
   
3.         BOOL bResult = true;
   
4.         CFileFind ff;
   
5.         CString path = szPath;
   
6.        
   
7.         if(path.Right(1) != "\")
   
8.                 path += "\";
   
9.         path += "*.*";
   
10.         BOOL res = ff.FindFile(path);
    
11.         while(res)
    
12.         {
    
13.                 res = ff.FindNextFile();
    
14. 
    
15.                 if (!ff.IsDots() && !ff.IsDirectory())//是文件时直接删除
    
16.                         DeleteFile(ff.GetFilePath());
    
17.                 else if (ff.IsDots())
    
18.                         continue;
    
19.                 else if (ff.IsDirectory())
    
20.                 {
    
21.                         path = ff.GetFilePath();
    
22.                         RecursiveDelete(path);//是目录时继续递归，删除该目录下的文件
    
23.                         bResult = RemoveDirectory(path);//目录为空后删除目录
    
24.                 }
    
25.         }       
    
26.         bResult = RemoveDirectory(szPath);//最终删除该目录
    
27.         return bResult;
    
28. }
    
29. 
    
30. void CGkbc8Dlg::OnButton2()
    
31. {
    
32.         CString sText;
    
33.         GetDlgItemText(IDC_EDIT1,sText);
    
34.         if(sText.IsEmpty())
    
35.                 return;
    
36.         if(!RecursiveDelete(sText))
    
37.                 MessageBox("删除失败");
    
38.         else MessageBox("成功");
    
39. }

复制代码

(, 下载次数: 0)

上传

点击文件名下载附件
[weixinlianxi]1[/weixinlianxi]

---

欢迎光临 工控编程吧 (https://www.gkbc8.com/)

Powered by Discuz! X3.4