كود نسخ الملفات

ضع الكود في الفورم

Private Sub Command1_Click()

FileCopy "c:\Autoexec.bat", "d:\Autoexec.bat"

End Sub