[princelovelorn]

ملاحظات هامة
عند الحفظ قم بإدخال أسم الملف وأمتداده فقط  
تم تعديل نوع الحقل في قاعدة البيانات لحقل نصي بدلا من الارتباط التشعبي تجنبا للاخطاء
تم نقل مجلد موقع الملفات إلى مجلد البرنامج بحيث إذا تم نقل مجلد البرنامج الى اي مسار يعمل الكود بدون مشاكل
 الكود المستخدم

كود :

 Try
           Dim path As String = Application.StartupPath & "\موقع الملفات\" & ارتباط_تشعبيTextBox.Text
           Process.Start(path)
       Catch ex As Exception
           Dim msg As String = "الملف غير موجود"
           MessageBox.Show(msg & vbNewLine & ex.Message, "معلومات")
       End Try

ومرفق المثال بعد التعديلات

تمنياتي لك بالتوفيق والنجاح