[سامى ابوسريع]

[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