أرجو أجابتي على كيفية جعل المسار الملف المحدد أكثر مرونة بالنسبة للسواقة مرن عند وجود الملف في أي سواقة أقراص وهذا هو كود الاستدعاء
Private Sub تشغيل_Click()
المسار.SetFocus
Dim s As String
s = "c:\windows\desktop\" + المسار.Text
RunAssociated s
End Sub
أي أن المسار
c:\windows\desktop
أي ان الموقع في السواقة c يجب ان يكون متغيرا حسب توضع البرنامج أي ان البرنامج يقرأ أين موجود أنا على أي سواقة على d أو c أو a أو أي سواقة ثم يقوم بتعديل المسار اتوماتيكيا
ولكم جزيل الشكر
وهذا هو البرنامج