• Home
 · 
• Files/File Controls/Input/Output
 · 
• 'function to open various Windows applications

'function to open various Windows applications

'function to open various Windows applications

Rate 'function to open various Windows applications

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error GoTo ErrHandler:
Select Case App
    Case "Word"
        strfile$ = "winword.exe"
    Case "Access"
        strfile$ = "msaccess.exe"
    Case "Notepad"
        strfile$ = "notepad.exe"
    Case "Excel"
        strfile$ = "excel.exe"
    Case "PowerPoint"
        strfile$ = "POWERPNT.exe"
End Select
OpenApplication = Shell(strfile$, vbNormalFocus)
ErrHandler:
    MsgBox Err.Description
End Function