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

 1 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
 2 '能打开任意文件的shell
 3 Public Function ShellAll(nHwnd As Long, ByVal strFilePath As String, Optional ByVal strCanShu As String = "") As Boolean
 4     On Error GoTo ShellAllErr
 5     ShellAll = True
 6     strFilePath = Trim(strFilePath)
 7     Dim nLs As Long
 8     nLs = ShellExecute(nHwnd, "open", strFilePath, vbNullString, strCanShu, vbNormalFocus)
 9     If nLs <= 32 Then
10         ShellAll = False
11     End If
12     Exit Function
13 ShellAllErr:
14     Err.Clear
15     ShellAll = False
16 End Function
17 '不提示错误的shell，可SHELL外部DOs命令
18 Public Function myShell(strFile As String) As Boolean
19     On Error GoTo shellError
20     myShell = True
21     Dim k As Long
22     k = Shell(strFile, vbNormalFocus)
23     If k = 0 Then myShell = False
24     Exit Function
25 shellError:
26     myShell = False
27 End Function
28 'SHELL　DOS的内部命令
29 Public Sub ShellDocIn(ByVal strCmd As String)
30     On Error Resume Next '此过程不保证一定执行成功
31     strCmd = Trim(strCmd)
32     Shell "Cmd.exe /k " & strCmd, vbHide
33 End Sub