منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كيف يمكن نسخ ملف باستخدام المستعرض الى مسار معين محدد مسبا في الكود

[ATTACH=CONFIG]2891[/ATTACH]

الزر الاول
OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName

الثانى
FolderBrowserDialog1.ShowDialog()
TextBox2.Text = FolderBrowserDialog1.SelectedPath

الثالث

Dim FileToCopy As String
Dim NewCopy As String
FileToCopy = textbox1.text
NewCopy = textbox2.text
If System.IO.File.Exists(FileToCopy) = True Then
System.IO.File.Copy(FileToCopy, NewCopy)
MsgBox("تم نسخ الملف")
End If

لا يعمل لو امكن ترفق مشروع اخي

السلام عليكم
ارجو ان يكون الاصدار متوافق واذا كان غير متوافق ارسلي رسالة حتى انزل الكود
اتفضل المشروع
Filecopy
ارجو انه هو المطلوب

السلام عليكم هناك شبيه بهذا الموضوع وهو تعديل علي هذا الكود