randomly playing .wav files

[brownga]

how can i randomize the playing of .wav files located in a given folder?
i have about 20 .wav files in one folder that i'd like to play at random.
thanks,
greg

[TeamKiller]

Hi ok try somethin like this:
CONTROLS USED:
CMDPLAY - COMMANDBUTTON
CMDSETPATH - COMMANDBUTTON
TXTFILEPATH - TEXTBOX
FILE1 - FILE LIST BOX

'//BEGINNING OF CODE///////////////////////////////////////////
'//API DECLARE FOR PLAYING SOUND
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

'//CONSTANT TO HALT PROGRAM UNTIL SOUND FINISHS
Private Const SND_SYNC = &H0

'//CONSTANT TO CONTINUE PROGRAM EXCUTION
Private Const SND_ASYNC = &H1

'//VARIABLE TO HOLD RETURN
Dim i As Long


Private Sub cmdsetpath_Click()

On Error GoTo err:

'//SET THE FILE PATH TO THE TEXT OF TXTFILEPATH
File1.Path = txtfilepath.Text

'//SIMPLE ERROR HANDLING
err:

If err.Number <> 0 Then

MsgBox "Error Description: " & err.Description, , "Error Number: " & err.Number

Else


End If
End Sub

Private Sub Cmdplay_Click()
'//INTIALISES RANDOM NUMBERS OR SOMETHIN LIKE THAT I DUNNO
'//I KNOW YOU USUALLY HAVE USE IT FOR RANDOM STUFF
Randomize

'//RANDOMISE THE LIST INDEX OF FILE1 TO GET A RANDOM FILE NAME IN TURN
File1.ListIndex = Int(File1.ListCount * Rnd)

'//CALL SNDPLAYSOUND THE FULL FILENAME IS FILE1.PATH CONCATED WITH FILE1.FILENAME THEN CHOOSE
'//TO HALT THE PROGRAM UNTIL SOUND FINISHS OR CONTINUE THE PROGRAM STRAIGHT AWAY
i = sndPlaySound(File1.Path & "\" & File1.FileName, SND_SYNC Or SND_ASYNC)
End Sub

Private Sub Form_Load()
'//ONLY DISPLAY WAV FILES
File1.Pattern = "*.wav"
End Sub
'//END OF CODE//////////////////////////////////////////////////

[Megatron]

You asked the same question here (http://forums.vb-world.net/showthread.php?s=&threadid=77317).