Option Explicit



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 Const SW_SHOWNORMAL = 1



Sub FindAllFiles()

Dim strPathToSearch As String



strPathToSearch = "C:\"



ShellExecute _

    0, _

    "find", _

    strPathToSearch, _

    vbNullString, _

    vbNullString, _

    SW_SHOWNORMAL



End Sub