منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف أحفظ مستند من pdf reader الموجود على الفورم في ملف bin الخاص بالبرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
 قمت بفتح ملف pdf على الفورم من الأداة pdf reader 

السؤال هنا كيف انسخ الملف الموجود من  الفورم إلى ملف bin مع مراعاة تسمية الملف بــ textbox1.text 
<<<< 
بعد حفظ الملف كيف استدعيه ,, عندما ابحث عليه بالإسم .. يظهر لي على أداة pdf reader 


هذا هو الكود المستخدم في فتح الملف من القرص الصلب على الفورم 
كود :
"OpenFileDialog1.Filter = "pdf files | *.pdf"
       If OpenFileDialog1.ShowDialog = DialogResult.OK Then
           AxAcroPDF1.src = OpenFileDialog1.FileName

        End If
بما أن ملف الـ pdf موجود أصلاً على القرص الصلب , قم بعملية نسخ عادية للملف
من وإلى المكان الجديد
كود :
My.Computer.FileSystem.CopyFile(
   "C:\UserFiles\TestFiles\testFile.txt",
   "C:\UserFiles\TestFiles2\NewFile.txt",
   Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
   Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)

فقط
غير المصدر : "C:\UserFiles\TestFiles\testFile.txt"إلى مسار الملف الأصلي
وغير الوجهة : "C:\UserFiles\TestFiles2\NewFile.txt" إلى مسار الملف الجديد


لفتح الملف : مثلاً وفر اسم الملف في الـ textbox1.text
Application.StartupPath() هو مسار الملف التنفيذي للبرنامج 

كود :
     AxAcroPDF1.src = Application.StartupPath() & "\" & textbox1.text & ".pdf"

هذا مثال , ولديك طرق كثيرة 
(14-03-18, 01:33 PM)عبدالله الدوسري كتب : [ -> ]بما أن ملف الـ pdf موجود أصلاً على القرص الصلب , قم بعملية نسخ عادية للملف
من وإلى المكان الجديد
كود :
My.Computer.FileSystem.CopyFile(
   "C:\UserFiles\TestFiles\testFile.txt",
   "C:\UserFiles\TestFiles2\NewFile.txt",
   Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
   Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)

فقط
غير المصدر : "C:\UserFiles\TestFiles\testFile.txt"إلى مسار الملف الأصلي
وغير الوجهة : "C:\UserFiles\TestFiles2\NewFile.txt" إلى مسار الملف الجديد


لفتح الملف : مثلاً وفر اسم الملف في الـ textbox1.text
Application.StartupPath() هو مسار الملف التنفيذي للبرنامج 

كود :
     AxAcroPDF1.src = Application.StartupPath() & "\" & textbox1.text & ".pdf"

هذا مثال , ولديك طرق كثيرة 


مشكور كثيراً .. 
انا قمت بعمل الكود  التالي  ... و أشتغل معايا 100%

كود :
Dim x As String = TextBox1.Text

           System.IO.File.Copy(OpenFileDialog1.FileName, Application.StartupPath() & "\" & x & ".pdf")

لكن سؤالي في البحث عند كتابة اسم الملف في تيكست  يظهر لي تلقائيا في pdf reader إن وجد في الملف التنفيذي
كود :
       Dim FileName As String = Application.StartupPath() & "\" & TextBox1.Text & ".pdf"
       If IO.File.Exists(FileName) Then
           AxAcroPDF1.src = FileName
       Else
           MsgBox("لا توجد وثيقة بنفس الاسم")
       End If