[此贴子已经被作者于2007-10-8 22:10:43编辑过]
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long用这个!就可以