[محمد الزينتا]

السلام عليكم انا محتاج أستشارة كيف اخلي الملف من نوع pdf و المجلوب عن طريق pdf reader  ان يتم حفظة في مجلد اسمة message داخل الديباغ يعني أحدد مسارة عند حفظة علما بأنة يتم حفظ بيانات اخرى داخل قاعدة من نوع SQL server  علما بأنة حاليا شغال و لاكن يتم الحفظ خارج الديباغ يعنى في مجلد المشروع الخارجي
و لكم جزيل الشكر

كود :

كود حفظ الملف
()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  

     

[aljzazy]

PHP كود :

  Dim FilePath As String = txtFilePath.Text
        File.Copy(FilePath, FolderPath & txtFileName.Text, True) 'حفظ الملف في المجلد المحدد