[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 إن وجد في الملف التنفيذي