[salam82]

السلام عليكم ورحمة الله تعالى وبركاته أعضاء المنتدى الكرام

أواجه مشكلة في كيفية إجبار التطبيق على حفظ ملف pdf في المسار الذي أحدده عند إستعادة الملفات، أرجوا من الإخوة أن يفيدوني بحل ولكم جزيل الشكر

الكود في المرفقات:

صورة للفورم:

[salam82]

أرجو من الإخوة إفادتي لاني أحتاج مساعدتكم حالا

[salam82]

معقول ولا رد

[salam82]

لقد تم حل المشكلة بحول الله بمساعدة الذكاء الاصطناعي وهذا نص الكود ليستفيد منه من تواجهه نفس المشكلة:

كود :

.    Imports System.Data.SqlClient
Imports System.IO

Public Class Doctec
   Dim rdr As New SqlDataAdapter
   Dim dt As New DataTable
   Dim ofd As New OpenFileDialog()
   Dim sfd As New SaveFileDialog

   ' ...

   Private Sub cmbFiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbFiles.SelectedIndexChanged
       Try
           Dim FileName As String = Me.cmbFiles.Text
           Dim Row As DataRow = dt.Rows.Find(Me.cmbFiles.SelectedValue)
           Dim file_data() As Byte = CType(Row(2), Byte())

           ' طلب المسار الذي يريد المستخدم حفظ الملف فيه
           sfd.Filter = "PDF Files (*.pdf)|*.pdf"
           If sfd.ShowDialog() = DialogResult.OK Then
               FileName = sfd.FileName ' استخدم المسار الذي اختاره المستخدم
               Dim fs As New FileStream(FileName, FileMode.OpenOrCreate, FileAccess.Write)
               fs.Write(file_data, 0, file_data.Length)
               fs.Close()
               Process.Start(FileName)
           End If
       Catch ex As Exception
           Exit Sub
       End Try
   End Sub

   ' ...
End Class