[asdfar1977]

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

 Private Sub Search_Place_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Search_Place_Save.Click
        If opf.ShowDialog = DialogResult.OK Then
            TextBoxX1.Text = opf.SelectedPath
        End If
    End Sub

    Private Sub BackupButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackupButton.Click
        Try
            If TextBoxX1.Text = "" Then
                MessageBox.Show("من فضلك اختر مكان الحفظ", "رسالة تنبية")
            Else
                Dim backupPath As String = TextBoxX1.Text.Trim()
                Dim fileName As String = "ELMOKHTER_" & DateTime.Now.ToString("yyyy_MM_dd__hh_mm_tt") & ".bak"
                Dim filePath As String = Path.Combine(backupPath, fileName)

                ' قراءة سلسلة الاتصال من الملف النصي
                Dim connectionString As String = File.ReadAllText("C:\server\CON_TXT.txt")

                ' تنفيذ النسخ الاحتياطي
                Using connection As New SqlConnection(connectionString)
                    Using command As New SqlCommand()
                        command.Connection = connection
                        connection.Open()

                        ' يجب استبدال "ELMOKHTER" بإسم قاعدة البيانات الخاصة بك
                        command.CommandText = "BACKUP DATABASE ELMOKHTER TO DISK='" & filePath & "'"

                        command.ExecuteNonQuery()
                    End Using
                End Using

                MessageBox.Show("تم حفظ النسخة الاحتياطية بنجاح", "تم", MessageBoxButtons.OK, MessageBoxIcon.Information)

                ' إعادة تعيين قيمة TextBox
                TextBoxX1.Text = ""
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub