daheads blog²

Public Sub Execute(ByVal aFilename As String)
    Dim p As New Process
    p.StartInfo.FileName = aFilename
    p.StartInfo.UseShellExecute = True
    p.Start()
    p.WaitForExit()
  End Sub

Beispielaufrufe:

Execute("C:\test.doc")
Execute("C:\test.pdf")