[سؤال] كيف نحفظ pdf داخل مجلد في الديباغ

كود :

كود حفظ الملف 

()Private Sub save_pic

       Dim picname As String = TextBox2.Text

       Dim newdir As String = System.Windows.Forms.Application.StartupPath

       ofd.Filter = "PDF FILES|*.PDF"

       If ofd.ShowDialog = DialogResult.OK Then

           TextBox6.Text = ofd.FileName

           System.IO.File.Copy(ofd.FileName, Application.StartupPath() & "\" & picname & ".pdf")

       End If

   End Sub

كود :

كود حفظ البيانات 

        Try

            cmd = New SqlCommand("insert into tbl_arshiv (id,idn,edate,type,mdate,side,topic,notes,leve,picm)

        (values(@id,@idn,@edate,@type,@mdate,@side,@topic,@notes,@leve,@picm)", con

 cmd.Parameters.Add(New SqlParameter("@id", SqlDbType.Int)).Value = TextBox1.Text

            cmd.Parameters.Add(New SqlParameter("@idn", SqlDbType.VarChar, 50)).Value = TextBox2.Text

            cmd.Parameters.Add(New SqlParameter("@edate", SqlDbType.Date)).Value = DateTimePicker1.Value.Date

            cmd.Parameters.Add(New SqlParameter("@type", SqlDbType.VarChar, 50)).Value = ComboBox1.Text

            cmd.Parameters.Add(New SqlParameter("@mdate", SqlDbType.Date)).Value = DateTimePicker2.Value.Date

            cmd.Parameters.Add(New SqlParameter("@side", SqlDbType.VarChar, 50)).Value = TextBox3.Text

            cmd.Parameters.Add(New SqlParameter("@topic", SqlDbType.VarChar, 50)).Value = TextBox4.Text

            cmd.Parameters.Add(New SqlParameter("@notes", SqlDbType.VarChar, 50)).Value = TextBox5.Text

            cmd.Parameters.Add(New SqlParameter("@leve", SqlDbType.VarChar, 50)).Value = ComboBox2.Text

            cmd.Parameters.Add(New SqlParameter("@picm", SqlDbType.NVarChar)).Value = TextBox6.Text

            ()con.Open

  ()cmd.ExecuteNonQuery

 ()reset

            ("تمت أضافة البيانات بنجاح")MsgBox

        Catch ex As Exception

            MsgBox(ex.Message)

        Finally

            ()con.Close

  End Try