Open Files

[alexvazquez]

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.

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

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.