[vbnet]

.....

نقل ملف لمسار يتم اختيارع عن طريق مربع حوار تحديد المكان الهدف
ضع Button1 في الفورم

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    ' إنشاء مربع حوار فتح ملف (وهنا لاختيار ملف) ـ
    Using op As New OpenFileDialog

        ' عند الموافقة على الملف الذي تم اختياره
        If op.ShowDialog = Windows.Forms.DialogResult.OK Then

            ' إنشاء مربع حوار تحديد المكان المراد نقل الملف إليه
            Using bws As New FolderBrowserDialog

                ' عند الموافقة على المكان
                If bws.ShowDialog = Windows.Forms.DialogResult.OK Then

                    ' رسالة تأكيد من رغبتك في نقل الملف من مكان إلى مكان
                    If MsgBox("هل أنت متأكد", MsgBoxStyle.YesNo + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading) = MsgBoxResult.Yes Then

                        ' إقتناص أي خطأ يحدث في عدم إمكانية نقل الملف لأي سبب من الأسباب
                        Try

                            ' إسم الملف الأساس مع مساره
                            Dim srcFilename As String = op.FileName

                            ' إسم الملف الأساس مع تبديل مساره الأساس بالمسار المنقول إليه
                            Dim trgFilename As String = bws.SelectedPath & "\" & IO.Path.GetFileName(op.FileName)

                            ' إذا كان يوجد ملف بنفس الإسم فاخذف الملف القديم
                            If IO.File.Exists(trgFilename) Then IO.File.Delete(trgFilename)

                            ' عملية نقل الملف
                            IO.File.Move(srcFilename, trgFilename)

                        Catch ex As Exception
                            ' إظهار رسالة بالخطأ الذي حصل
                            MsgBox(ex.Message)

                        End Try
                    End If
                End If
            End Using
        End If
    End Using

End Sub

نقل ملف لمسار محدد مسبقاً

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    ' إنشاء مربع حوار فتح ملف (وهنا لاختيار ملف) ـ
    Using op As New OpenFileDialog

        ' عند الموافقة على الملف الذي تم اختياره
        If op.ShowDialog = Windows.Forms.DialogResult.OK Then

            ' المسار الهدف
            Dim trgPath As String = "C:\......."
            ' التأكد من وضع \ في نهاية المسار
            If Not trgPath.EndsWith("\") Then trgPath &= "\"

            ' رسالة تأكيد من رغبتك في نقل الملف من مكان إلى مكان
            If MsgBox("هل أنت متأكد", MsgBoxStyle.YesNo + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading) = MsgBoxResult.Yes Then

                ' إقتناص أي خطأ يحدث في عدم إمكانية نقل الملف لأي سبب من الأسباب
                Try

                    ' إسم الملف الأساس مع مساره
                    Dim srcFilename As String = op.FileName

                    ' إسم الملف الأساس مع تبديل مساره الأساس بالمسار المنقول إليه
                    Dim trgFilename As String = trgPath & IO.Path.GetFileName(op.FileName)

                    ' إذا كان يوجد ملف بنفس الإسم فاخذف الملف القديم
                    If IO.File.Exists(trgFilename) Then IO.File.Delete(trgFilename)

                    ' عملية نقل الملف
                    IO.File.Move(srcFilename, trgFilename)

                Catch ex As Exception
                    ' إظهار رسالة بالخطأ الذي حصل
                    MsgBox(ex.Message)

                End Try
            End If
        End If
    End Using

End Sub

.....