[مصمم هاوي]

السلام عليكم ورحمـة الله وبركاته
أعذروني أثقل عليكم أسلئتي
أولاً: أريد التعديل على كود جلب اسم الملف ومساره في التكستات
أتعبني هذا الكود على الرغم من تقسيمه إلى صب 2
ولكن هذا غير مجدي وغير عملي

كود :

[code]

   Private Sub ButSearsh_Click(sender As Object, e As EventArgs) Handles ButSearsh.Click
       FilePath()
       FileNames()

   End Sub

   Private Sub FileNames()
       ' جلب اسم الملف في التكست
       Using ofb As New OpenFileDialog
           ofb.InitialDirectory = ""
           ofb.Multiselect = True

           If ofb.ShowDialog() = DialogResult.OK Then
               For i As Integer = 0 To ofb.FileNames.Count - 1
                   Dim FullName As String = ofb.FileNames(i)
                   Dim OnlyFileName As String = IO.Path.GetFileNameWithoutExtension(FullName)
                   TextName.Text = (OnlyFileName)

               Next
           End If

       End Using

   End Sub

   Private Sub FilePath()
       ' جلب مسار الملف في التكست
       ofd.Filter = "All Files (*.*) |*.*"
       If ofd.ShowDialog = DialogResult.OK Then
           TextPath.Text = ofd.FileName

       End If

   End Sub

[/code]

ثانياً: يتم حفظ الملفات في قاعدة البيانات؛ ولكن أريد حفظ الملفات في مجلد (MyFile) الموجود في مجلد  (Debug) وحفظ المسار فقط في قاعدة البيانات

المثال في المرفقات
ملحوظة: اسم قاعدة البيانات  Maylibrary
اسم الجدول  Tab_Files
أسماء حقول الجدول في ملف المثال باسم Maylibrary


  SavePDFInDataBase.rar (الحجم : 182.51 ك ب / التحميلات : 28)