工控编程吧

标题: 171上位机VC MFC文件夹的新建复制改名删除操作 [打印本页]

---

作者: qq263946146    时间: 2016-1-15 21:40
标题: 171上位机VC MFC文件夹的新建复制改名删除操作

(, 下载次数: 3)

上传

点击文件名下载附件

171上位机VC MFC文件夹的新建复制改名删除操作

功能展示

文件夹的操作为是编写编程时常用的功能，当前例程实现了文件夹的创建，删除，重命名，复制和强制删除带有文件及子文件夹的功能，效果如图；

要点提示

创建文件夹可以用函数CreateDirectory()实现；

删除文件夹可以用函数RemoveDirectory()实现；

删除带有子文件夹及文件的文件夹可以用函数SHFileOperation()实现

重命名文件夹和文件重命名一样，可以用函数MoveFile()实现；

复制文件夹也可以通过函数SHFileOperation()实现，只要修改其参数的具体变量；

实现功能

1.新建基于对话框的应用程序

2.拖拽一静态文本控件ID修改为IDC_NOTE用于显示操作结果；

拖拽一编辑框控件ID为IDC_EDIT1，用于显示文件夹路径；

3.依次拖拽按钮控件，实现相应功能，按钮关联函数独立运行

1. void CGkbc8Dlg::OnExplor()
   
2. {
   
3.         //><获取桌面路径
   
4.         LPITEMIDLIST pidl;
   
5.         LPMALLOC pShellMalloc;
   
6.         char szDir[MAX_PATH];
   
7.         
   
8.         if(SUCCEEDED(SHGetMalloc(&pShellMalloc)))
   
9.         {
   
10.                 if(SUCCEEDED(SHGetSpecialFolderLocation(NULL,CSIDL_DESKTOP,&pidl)))
    
11.                 {
    
12.                         SHGetPathFromIDList(pidl, szDir);
    
13.                         pShellMalloc->Free(pidl);
    
14.                 }
    
15.                 pShellMalloc->Release();
    
16.         }
    
17. //><选择路径
    
18.     BROWSEINFO bi;   
    
19.     bi.hwndOwner      = this->GetSafeHwnd();  
    
20.     bi.pidlRoot       = NULL;  
    
21.     bi.pszDisplayName = NULL;   
    
22.     bi.lpszTitle      = TEXT("请选择文件夹");   
    
23.     bi.ulFlags        = BIF_RETURNONLYFSDIRS | BIF_STATUSTEXT;  
    

复制代码

1. bi.lpfn           = BrowseCallBackFun;NULL;  // //回调函数
   
2.     bi.lParam         = (LPARAM)szDir;//= 0;//传给回调函数的参数,设置默认路径
   
3.     bi.iImage         = 0;   
   
4. 
   
5.     pidl = SHBrowseForFolder(&bi);  
   
6.     if (pidl == NULL)  
   
7.         return;
   
8.   
   
9.     if (SHGetPathFromIDList(pidl, szDir))  
   
10.         {
    
11.                 CString sDir(szDir);
    
12.                 sDir+="\\工控编程吧";
    
13.                 SetDlgItemText(IDC_EDIT1,sDir);
    
14.         }
    
15. }
    
16. int CALLBACK BrowseCallBackFun(HWND hwnd, UINT uMsg, LPARAM lParam, LPARAM lpData)  
    
17. {  
    
18.     switch(uMsg)  
    
19.     {  
    
20.     case BFFM_INITIALIZED:  //选择文件夹对话框初始化  
    
21.         ::SendMessage(hwnd, BFFM_SETSELECTION, TRUE, lpData);//设置默认路径   
    
22.         ::SendMessage(hwnd, BFFM_SETSTATUSTEXT, 0, lpData);  //在STATUSTEXT区域显示当前路径  
    
23.         ::SetWindowText(hwnd, TEXT("请先设置个工作目录"));//设置选择文件夹对话框的标题   
    
24.         break;  
    
25.     case BFFM_SELCHANGED:   //选择文件夹变更时  
    
26.         {  
    
27.             TCHAR pszPath[MAX_PATH];        
    
28.             SHGetPathFromIDList((LPCITEMIDLIST)lParam, pszPath);  //获取当前选择路径
    
29.             ::SendMessage(hwnd, BFFM_SETSTATUSTEXT, TRUE, (LPARAM)pszPath);//在STATUSTEXT区域显示当前路径   
    
30.         }  
    
31.         break;  
    
32.     }  
    
33.     return 0;  
    
34. }
    

复制代码

1. void CGkbc8Dlg::OnCreate() //创建文件夹
   
2. {
   
3.         CString sDir;
   
4.         GetDlgItemText(IDC_EDIT1,sDir);
   
5. 
   
6.         if(::CreateDirectory(sDir,NULL))
   
7.                 SetDlgItemText(IDC_NOTE,"创建文件夹成功");
   
8.         else
   
9.                 SetDlgItemText(IDC_NOTE,"创建文件夹失败");        
   
10. }
    
11. void CGkbc8Dlg::OnRename()
    
12. {
    
13.         CString sDir,sNewDir,sFoldName;
    
14.         GetDlgItemText(IDC_EDIT1,sDir);
    
15. 
    
16.         sFoldName = sDir.Right(sDir.GetLength()-sDir.ReverseFind('\\')-1);
    
17.         if(sFoldName == "工控编程吧")
    
18.                 sFoldName ="gkbc8.com";
    
19.         else
    
20.                 sFoldName="工控编程吧";
    
21.         sNewDir   = sDir.Left(sDir.ReverseFind('\\')+1);
    
22. //        
    
23.         sNewDir+=sFoldName;
    
24.         if(::MoveFile(sDir,sNewDir) )
    
25.         {
    
26.                 SetDlgItemText(IDC_EDIT1,sNewDir);
    
27.                 SetDlgItemText(IDC_NOTE,"重命名文件夹成功");
    
28.         }
    
29.         else
    
30.                 SetDlgItemText(IDC_NOTE,"重命名文件夹失败");
    
31. 
    
32. }
    

复制代码

代码过多过长，可以下载例程学习

我们来演示下功能实现的整个过程

[iqiyi]http://player.video.qiyi.com/7d49f6bf20a8ba34739620c2f020e4a2/0/0/w_19rtdrpa1l.swf-albumId=5189646709-tvId=5189646709-isPurchase=0-cnId=12[/iqiyi]

(, 下载次数: 0)

上传

点击文件名下载附件

[note]1[/note]

---

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

Powered by Discuz! X3.4