vb6.0的各種SHELL,CMD內部命令、外部命令、SHELL任意文件

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
'能打開任意文件的shell
Public Function ShellAll(nHwnd As Long, ByVal strFilePath As String, Optional ByVal strCanShu As String = "") As Boolean
    On Error GoTo ShellAllErr
    ShellAll = True
    strFilePath = Trim(strFilePath)
    Dim nLs As Long
    nLs = ShellExecute(nHwnd, "open", strFilePath, vbNullString, strCanShu, vbNormalFocus)
    If nLs <= 32 Then
        ShellAll = False
    End If
    Exit Function
ShellAllErr:
    Err.Clear
    ShellAll = False
End Function
'不提示錯誤的shell，可SHELL外部DOs命令
Public Function myShell(strFile As String) As Boolean
    On Error GoTo shellError
    myShell = True
    Dim k As Long
    k = Shell(strFile, vbNormalFocus)
    If k = 0 Then myShell = False
    Exit Function
shellError:
    myShell = False
End Function
'SHELL　DOS的內部命令
Public Sub ShellDocIn(ByVal strCmd As String)
    On Error Resume Next '此過程不保證一定執行成功
    strCmd = Trim(strCmd)
    Shell "Cmd.exe /k " & strCmd, vbHide
End Sub