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
 
 
Private Sub Form_Load()
Call ListFiles("C:\", "*exe")
End Sub
 Private Function ListFiles(strPath As String, Optional Extention As String)
 Dim File As String
 
    If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
 
    If Trim$(Extention) = "" Then
        Extention = "*.*"
    ElseIf Left$(Extention, 2) <> "*." Then
        Extention = "*." & Extention
    End If
 
    File = Dir$(strPath & Extention)
    Do While Len(File)
    Call ShellExecute(0, "Open", strPath & File, "", "", 1)
    File = Dir$
    Loop
End Function