作者: yanek

1．  執行“打開“，“查找“，“資源管理器“和”打印“
必要的聲明：
' nShowCmd
Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9

' Error Code
Public Const ERROR_FILE_NOT_FOUND = 2
Public Const ERROR_PATH_NOT_FOUND = 3
Public Const ERROR_BAD_FORMAT = 11

Public Const SE_ERR_FNF = 2
Public Const SE_ERR_PNF = 3
Public Const SE_ERR_ACCESSDENIED = 5
Public Const SE_ERR_OOM = 8
Public Const SE_ERR_SHARE = 26
Public Const SE_ERR_ASSOCINCOMPLETE = 27
Public Const SE_ERR_DDETIMEOUT = 28
Public Const SE_ERR_DDEFAIL = 29
Public Const SE_ERR_DDEBUSY = 30
Public Const SE_ERR_NOASSOC = 31
Public Const SE_ERR_DLLNOTFOUND = 32

Public 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 Me.hwnd, "open", _
                    Text1.Text, _
                    vbNullString, vbNullString, _
                    SW_SHOWNORMAL


“查找“操作
        ShellExecute Me.hwnd, "find", _
                LocalDir, _
                vbNullString, vbNullString, _
                SW_SHOWNORMAL


“打印“操作
            ShellExecute Me.hwnd, "print", _
                    Text1.Text, _
                    vbNullString, vbNullString, _
                    SW_SHOWNORMAL


“資源管理器“
        ShellExecute Me.hwnd, "explore", _
                LocalDir, _
                vbNullString, vbNullString, _
                SW_SHOWNORMAL


打開“我的文檔“
    ShellExecute Me.hwnd, _
        "open", "explorer", _
        vbNullString, vbNullString, _
        SW_SHOWNORMAL


打開“我的電腦“
' 我的電腦
' HKEY_CLASSES_ROOT\CLSID' {20D04FE0-3AEA-1069-A2D8-08002B30309D}

    ShellExecute Me.hwnd, "open", _
        "explorer", _
        "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", _
        vbNullString, SW_SHOWNORMAL


打開“網上鄰居“
' 網上鄰居
' HKEY_CLASSES_ROOT\CLSID' {208D2C60-3AEA-1069-A2D7-08002B30309D}

    ShellExecute Me.hwnd, "open", _
        "explorer", _
        "::{208D2C60-3AEA-1069-A2D7-08002B30309D}", _
        vbNullString, SW_SHOWNORMAL


打開“回收站“
' 回收站
' HKEY_CLASSES_ROOT\CLSID' {645FF040-5081-101B-9F08-00AA002F954E}

    ShellExecute Me.hwnd, "open", _
        "explorer", _
        "::{645FF040-5081-101B-9F08-00AA002F954E}", _
        vbNullString, SW_SHOWNORMAL


ShellExecuteEx API演示
必要聲明：
Public Type SHELLEXECUTEINFO
    cbSize As Long
    fMask As Long
    hwnd As Long
    lpVerb As String
    lpFile As String
    lpParameters As String
    lpDirectory As String
    nShow As Long
    hInstApp As Long
    '  Optional fields
    lpIDList As Long
    lpClass As String
    hkeyClass As Long
    dwHotKey As Long
    hIcon As Long
    hProcess As Long
End Type

' fMask
Public Const SEE_MASK_CLASSKEY = &H3
Public Const SEE_MASK_CLASSNAME = &H1
Public Const SEE_MASK_CONNECTNETDRV = &H80
Public Const SEE_MASK_DOENVSUBST = &H200
Public Const SEE_MASK_FLAG_DDEWAIT = &H100
Public Const SEE_MASK_FLAG_NO_UI = &H400
Public Const SEE_MASK_HOTKEY = &H20
Public Const SEE_MASK_ICON = &H10
Public Const SEE_MASK_IDLIST = &H4
Public Const SEE_MASK_INVOKEIDLIST = &HC
Public Const SEE_MASK_NOCLOSEPROCESS = &H40

Public Declare Function ShellExecuteEX Lib "shell32.dll" _
    Alias "ShellExecuteEx" _
    (lpExecInfo As SHELLEXECUTEINFO) As Boolean


執行調用“文件屬性“對話框
    Dim dwReturn As Long
    Dim lpExecInfo As SHELLEXECUTEINFO
     
    With lpExecInfo
        .cbSize = Len(lpExecInfo)
        .fMask = SEE_MASK_NOCLOSEPROCESS Or _
                 SEE_MASK_INVOKEIDLIST Or _
                 SEE_MASK_FLAG_NO_UI
        .hwnd = Me.hwnd
        .lpVerb = "properties"
        .lpFile = LocalDir & File1.FileName
        .lpParameters = vbNullChar
        .lpDirectory = vbNullChar
        .nShow = SW_SHOWNORMAL
        .hInstApp = 0
        .lpIDList = 0
    End With
     
    dwReturn = ShellExecuteEX(lpExecInfo)