قراءة صوت بدون أبيي أو أداة

'=====================الأدوات المطلوبة====================

'مربع سرد الملفات File

Private Sub File1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

LeSon = File1.Path & "" & File1.FileName

z = Shell("sndrec32 /play /embedding " & LeSon) ' ouvre le son sans le magnétophone visible

End Sub

Private Sub Form_Load()

File1.Path = "c:windowsmedia" ' exemple de dossir avec musique

End Sub