调用外部程序代码

Private Sub Command1_Click() '程序A On Error GoTo ShellErr Shell App.Path & "\shutdown.exe" '程序B Exit Sub ShellErr: If Err.Number = 53 Then MsgBox "程序不完整,请重新下载" End Sub