shell 사용하기

shell 사용하기 

Sub test1()
    RunShaell
End Sub


Sub RunShaell()
    On Error Resume Next
    Program = "notepad.exe"
    TaskID = Shell(Program, 1)
    If Err <> 0 Then
        MsgBox "Cannot start " & Program, vbCritical, "Error"
    End If
End Sub