Open Files

Need Help:

I have a midi program made in VB, I would like this program to find all midi files in a directory and then play the firts one, when finish, the second one etc..
email: [email protected]

Best Regards,
Alejandro Vazquez

Use the mciSendString API for the playing of a MIDI.

Code:

---

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

---

To play it, use

Code:

---

mciSendString "open C:\MyMidi.mid type sequencer alias background", 0, 0, 0
mciSendString "play background", 0, 0, 0

---

for the findings for the files, use the FindFirstFile and FindNextFile API.