工控编程吧

标题: 170上位机VC MFC文件复制移动更名删除操作 [打印本页]

---

作者: qq263946146    时间: 2016-1-15 21:35
标题: 170上位机VC MFC文件复制移动更名删除操作

(, 下载次数: 2)

上传

点击文件名下载附件

170上位机VC MFC文件复制移动更名删除操作

功能展示

任何软件的开发都或多或少的接触文件的复制删除移动等操作，我们当前例程实现文件的复制移动重命名等常用操作功能，效果如图；

要点提示

文件的直接删除(不经过回收站)可用函数DeleteFile();

文件的复制可用函数CopyFile();

文件的移动可用函数MoveFile();

文件的重命名同样可以用函数MoveFile()

这些函数的参数都很简单，可参考MSDN或直接复制使用例程源码

实现功能

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

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

拖拽一编辑框ID默认为IDC_EDIT用于显示已选择的要操作文件路径；

拖拽一按钮，用于打开要操作的文件；

最后再依次拖拽一些按钮实现文件的相关操作，按钮相对独立，可根据喜好，添加按钮函数；

1. void CGkbc8Dlg::OnDelete()
   
2. {CString sFialPath;
   
3.         GetDlgItemText(IDC_EDIT1,sFialPath);
   
4. 
   
5.         BOOL bResult = DeleteFile(sFialPath);//直接删除未放入回收站
   
6.         if(sFialPath)SetDlgItemText(IDC_NOTICE,"删除成功");
   
7.         elseSetDlgItemText(IDC_NOTICE,"删除失败");}
   
8. void CGkbc8Dlg::OnCopy()
   
9. {CString sFialPath,sCoppiedFilePath;
   
10.         GetDlgItemText(IDC_EDIT1,sFialPath);
    
11.         sCoppiedFilePath=sFialPath;
    
12.         sCoppiedFilePath = sCoppiedFilePath.Left(sCoppiedFilePath.ReverseFind('.'));
    
13.         sCoppiedFilePath+="_copy";
    
14.         sCoppiedFilePath+=sFialPath.Right(sFialPath.GetLength()-sFialPath.ReverseFind('.'));
    
15.         if(::CopyFile(sFialPath,sCoppiedFilePath,FALSE))//FALSE表示存在？强制盖
    
16.                 SetDlgItemText(IDC_NOTICE,"复制成功");
    
17.         else SetDlgItemText(IDC_NOTICE,"复制失败");
    
18. }
    

复制代码

1. void CGkbc8Dlg::OnMove()
   
2. {
   
3.         CString sFialPath,sMovedFilePath;
   
4.         GetDlgItemText(IDC_EDIT1,sFialPath);
   
5. //
   
6.         CHAR ch[MAX_PATH];
   
7.         GetModuleFileName(NULL,ch,MAX_PATH);
   
8.         sMovedFilePath=ch;
   
9.         sMovedFilePath=sMovedFilePath.Left(sMovedFilePath.ReverseFind('\\'));//获取程序路径
   
10.         sMovedFilePath+=sFialPath.Right(sFialPath.GetLength()-sFialPath.ReverseFind('\\'));//获取文件名
    
11.         //
    
12.         if(::MoveFile(sFialPath,sMovedFilePath))
    
13.                 SetDlgItemText(IDC_NOTICE,"移动成功");
    
14.         else
    
15.                 SetDlgItemText(IDC_NOTICE,"移动失败");
    
16. }
    
17. 
    
18. void CGkbc8Dlg::OnChange()
    
19. {
    
20.         CString sFialPath,sNewFilePath;
    
21.         GetDlgItemText(IDC_EDIT1,sFialPath);
    
22. //
    
23.         sNewFilePath=sFialPath.Left(sFialPath.ReverseFind('\\')+1);//获取程序路径
    
24.         sNewFilePath+="NewName";//新名
    
25.         sNewFilePath+=sFialPath.Right(sFialPath.GetLength()-sFialPath.ReverseFind('.'));//获取文件后缀
    
26.         //
    
27.         if(::MoveFile(sFialPath,sNewFilePath))
    
28.                 SetDlgItemText(IDC_NOTICE,"改名成功");
    
29.         else
    
30.                 SetDlgItemText(IDC_NOTICE,"改名失败");
    
31. }
    

复制代码

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

(, 下载次数: 0)

上传

点击文件名下载附件

[note]1[/note]

---

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

Powered by Discuz! X3.4