كود لنقل الملفات

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

Private Sub Command1_Click()

Name "c:\example.exe" As "D:\example.exe"

End Sub