كود لاستدعاء ملف صوتي من داخل اي قرص

كود لاستدعا ملف صوتي باي قرص كان حتى القرص المدمج

مع وجود الملف الصوتي في نفس القرص , وذلك لان كل جهاز يكون له احرف اقراص مختلفه عن الآخر , وهو بلغة فجول بيسك

Private Sub Form_Load()

Dim filename

filename = App.path

If Right(filename, 1) <> "" Then

filename = filename + ""

End If

filename = filename + "dataa.wav"

MMControl1.filename = filename

MMControl1.Command = "open"

MMControl1.Command = "play"

End Sub