[مساعدة]

ممكن التعديل بالأكود

---

تغيير الديستنيش\باث

اولا يمكن الحصول على مسار سطح المكتب أو المستندات حتى لو اختلف اسم المستخدم في الجها الأخر وهذا هو الكود

كود :

Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim documentsPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

وبعدها يمكن اضافة اسم المجلد الخاص بملف pdf بعد وضع الفاصل \ مثل

كود :

Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

Dim filenamePath As String = desktopPath & "\FP\"

---

طريقتك Data Directory غير صحيحة لأنها تستخدم مع مسار قاعدة البيانات فقط وليس الملفات