con un pulsante vorrei fare partire dei suoni selezionando a caso un file contenuto nella sottocartella "temp" (ogni file un suono diverso).
Sono arrivato al punto in cui conto quanti file ci sono e scelgo un numero a caso, che rappresenta la posizione del mio file nella cartella, ma poi non riesco a selezionare il nome corrispondente a questo numero, per lanciare la macro che esegue il suono.
- Codice: Seleziona tutto
Private Sub CommandButton15_Click()
Dim Perc, MioFile
Perc = ThisWorkbook.Path & "\temp"
MioFile = Perc & "\" & "*.*"
MyName = Dir(MioFile, vbDirectory)
rg = 0
Do While MyName <> ""
If MyName = ".." Then GoTo lab1
rg = rg + 1
lab1: MyName = Dir
Loop
rg = rg - 1
NBrano = Int(rg * Rnd + 1)
Brano = "x" '?????
Call suonaSpeciali(Brano, Perc)
End Sub