السلام عليكم ورحمة الله تعالى وبركاته أعضاء المنتدى الكرام
أواجه مشكلة في كيفية إجبار التطبيق على حفظ ملف pdf في المسار الذي أحدده عند إستعادة الملفات، أرجوا من الإخوة أن يفيدوني بحل ولكم جزيل الشكر
الكود في المرفقات:
صورة للفورم:
أرجو من الإخوة إفادتي لاني أحتاج مساعدتكم حالا
لقد تم حل المشكلة بحول الله بمساعدة الذكاء الاصطناعي وهذا نص الكود ليستفيد منه من تواجهه نفس المشكلة:
كود :
. 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