این کدرا در جنرال کپی کنید
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
نظرات شما عزیزان:
.: Weblog Themes By Pichak :.