Hi again 
If you'd add a FileListBox, you could set the path (and pattern if you'd only like to run a specific type of file) and then in an array run all the files
VB Code:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'ShellExecute is an API to execute files
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
File1.Path = YOURFOLDER
DoEvents
For i = 0 to File1.ListCount - 1
ShellExecute Me.hwnd, vbNullString, File1.List(i) , vbNullString, File1.Path, SW_SHOWNORMAL
Next i
End Sub