VB6 文件复制与替换
2015-08-12 12:54
316 查看
'先声明函数
Private Declare Function
CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
'D:\1.txt复制到C:\2.txt-----0表示文件存在时就覆盖
rst = CopyFile("D:\1.txt", "C:\2.txt",0)
If rst = 0 Then
MsgBox "替换不成功！"
Else
MsgBox "替换成功！"
End If
Private Declare Function
CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
'D:\1.txt复制到C:\2.txt-----0表示文件存在时就覆盖
rst = CopyFile("D:\1.txt", "C:\2.txt",0)
If rst = 0 Then
MsgBox "替换不成功！"
Else
MsgBox "替换成功！"
End If
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- VB中recordset的用法
- 【VBA研究】生成随机密码
- 关于在64位win7下运行Virtualbox安装系统时出错（提示VBoxDD.DLL错误）的解决方
- 合并单元格/VBA
- 【Visual Basic】列表控件ListView的增删改查、模态对话框、禁止窗口调整大小
- [vb.net]简单多线程实例
- VB文本框textbox的那点事
- 结账之SSTab
- VB 核心编程及通用模块开发 笔记1
- [VB版机房]MSGFLEXGRID控件中的数据导出到excel
- 【VB】获取系统当前时间并格式化输出
- 房费制VB版本（一个）——系统分析
- opengl VAO and VBO
- [vb.net]XML File Parsing in VB.NET
- VBA引用.Net类库
- VBA引用.Net类库
- VB使用资源编辑器写入OCX与注册
- 【VBA研究】VBA数据类型定义和管控
- vb.net版本房收费系统改造
- Visual Basic 14 的 14 大新特性