Private Declare Function CopyFileA Lib "Kernel32.Dll"(Byval Source As String,Byval Target As String,Byval Ed As Long)As Long

واین کدرا در فرم لودینگ یا یک دکمه کپی کنید

Private Sub Form_Load()

Dim A As Long

A=CopyFileA("فایل مورد نظر","محل جدید",1)

End Sub