[kslawy]

معليش أخي أنا وضعت لك الكود ناقص

غير الـ ofd.FileName إلي مسار الملف الذي تريد تشغيله مثلاً ضع المسار في متغير هكذا :

كود :

Dim MP3Path As String = "C:\myfile.mp3"

وتسنده للكود هكذا :

كود :

mciSendString("Open " & Chr(34) & MP3Path & Chr(34) & " alias audio", 0, 0, 0)

مرة أخرى آسف علي الخطأ

---

طبعا يمكنك استخدم مربعات الحوار لفتح الملف الذي تريد واسناده للدالة