خطا در اجرای دستور کپی

[ali190]

باسلام و عرض خسته نباشید
در نمونه پیوستی هنگام اجرای دستور کپی خطای شماره 76 رخ میدهد.
میشه لطف کنید و بگید مشکل از کجاست
ممنون

[M.T.P]

Private Sub Command4_Click()

Dim x As String
Dim y As String

x = "C:\WINDOWS\NOTEPAD.EXE"
y = "d:\NOTEPAD.EXE"
Me.Text3.Text = x
Me.Text4.Text = y
FileCopy x, y
End Sub

[mostafag]

سلام دوست عزیز
مشکل این کد اینه که شما در متغیر y نام فایل بعد از ذخیره شدن رو مشخص نکردید :متفکر:
کدتون رو به این صورت تغییر بدید



x = "C:\WINDOWS\NOTEPAD.EXE"
y = "d:\notpad.exe"




امیدوارم مطلب بدردتون بخوره:لبخندساده::تشویق: