VB6 文件复制与替换

概述'先声明函数 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.tx

'先声明函数

Private Declare Function copyfile lib "kernel32" Alias "copyfileA" (ByVal lpExistingfilename As String,ByVal lpNewfilename As String,ByVal bFailifExists As Long) As Long

'D:.txt复制到C:.txt-----0表示文件存在时就覆盖

rst = copyfile("D:.txt","C:.txt",0)

If rst = 0 Then MsgBox "替换不成功！" Else MsgBox "替换成功！" End If

总结

以上是内存溢出为你收集整理的VB6 文件复制与替换全部内容，希望文章能够帮你解决VB6 文件复制与替换所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。