[ahmed_elwerfalli]

السلام عليكم
 قمت بفتح ملف 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"

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

[ahmed_elwerfalli]

(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