如何自动根据文件扩展名来启动相应的应用程序加载文件？

如何自动根据文件扩展名来启动相应的应用程序加载文件？

' 指定所要打开的文件。        

Dim myFile As String = Environment.CurrentDirectory & "/Text.txt"

        ' 建立一个新的 ProcessStartInfo 结构。

         Dim pInfo As New ProcessStartInfo

        ' 指定定所要启动的文件。

         pInfo.FileName = myFile

        ' UseShellExecute 的默认值就是 True

        pInfo.UseShellExecute = True

        ' 启动进程。

         Dim p As Process = Process.Start(pInfo)