VB如调用API复制文件，并可以判断文件已经复制成功！

[ljl861025]

各位大侠，如题。。。！请大家帮帮忙~~~~小的感激不尽。。。。

[专注VB编程开发20年]

'┏〓〓〓〓〓〓〓〓〓 ApiCopyFile,start 〓〓〓〓〓〓〓〓〓┓
'［定义］：
Public Type SHFILEOPSTRUCT
  hwnd As Long
  wFunc As Long
  pFrom As String
  pTo As String
  fFlags As Integer
  fAnyOperationsAborted As Long
  hNameMappings As Long
  lpszProgressTitle As String '只有在 FOF_SIMPLEPROGRESS 时用
  End Type
    
  Public Declare Function SHFileOperation Lib _
  "shell32.dll" Alias "SHFileOperationA" (lpFileOp _
  As SHFILEOPSTRUCT) As Long
    
  Public Const FO_COPY = &H2
    
  Public Const FOF_ALLOWUNDO = &H40
  Public Const FOF_NOCONFIRMATION = &H10
  Public Const FOF_NOCONFIRMMKDIR = &H200
  Public Const FOF_SILENT = &H4
'［简介］：
'API方式复制文件
Function ApiCopyFile(ByVal FromFile As String, ByVal ToFile As String, Optional ShowCopy As Boolean = True, Optional DelOld As Boolean = True) As Boolean
   '[mycode_id:1967],edittime:2011-8-18 上午 05:06:03
   '［详介］：
   '如果想不显示复制进度，ShowCopy参数设为FALSE
     On Error GoTo Err
     If Dir(ToFile) <> "" Then
       If DelOld Then
       Kill ToFile
       Else
       ApiCopyFile = True
       End If
     End If
     Dim SHFileOp As SHFILEOPSTRUCT '拷贝例子:
     SHFileOp.wFunc = FO_COPY
     SHFileOp.pFrom = FromFile
     SHFileOp.pTo = ToFile
     If ShowCopy Then
     Else
       SHFileOp.fFlags = FOF_NOCONFIRMMKDIR + FOF_SILENT '不显示系统确认对话框
     End If
     Call SHFileOperation(SHFileOp)
     ApiCopyFile = Dir(ToFile) <> ""
     Exit Function
   Err:
End Function
'┗〓〓〓〓〓〓〓〓〓  ApiCopyFile,end  〓〓〓〓〓〓〓〓〓┛

[ljl861025]

楼上的兄弟，非常感谢你的回复，小弟还想请问下，在这种情况下调用API来复制文件是否有效：
我用ADO打开一个数据库.mdb，在这个数据打开的状态下我调用API对这个文件进行复制，请问是样能做得到吗？？？谢谢

[帝企鹅已被占用]

你自己不会试一下啊？