启动关联的应用程序打开特殊文件 zlyperson（原作）

原文是C#,我把它改成了VB.但未来得及测试.若发现什么问题请告之.

这篇短文将演示如何启动与特殊文件关联的应用程序来打开特殊文件，而不必知道关联的应用程序的具体位置和名称。比如，你要打开demo.bmp，通常在Windows下是MSPaint.exe与之关联的。VB.Net启动关联的应用程序打开特殊文件，需要用到.NetFrameWork System.Diagnostics命名空间。

下面，我们将构造一个任何关联程序的启动器，建一个VB文件Starter.vb。

imports System;

imports System.IO;

imports System.Diagnostics;

public class Starter

public shared sub new(args as string())

'首先，建立进程启动信息的结构

dim pInfo as new ProcessStartInfo();

pInfo.UseShellExecute = true;

dim i as integer

for i = 0 to args.Length-1

if File.Exists(args[i]) then

pInfo.FileName = args[i];

'启动进程

dim p as Process = Process.Start(pInfo);

end if

next

end sub

end class

编译Starter.vb

执行Starter test.bmp test.xls

将分别打开MSPaint.exe Execel.exe

文中瑕弊联系zlyperson@163.net

附原C#源码:

using System;

using System.IO;

using System.Diagnostics;

public class Starter {

public static void Main(string[] args) {

//首先，建立进程启动信息的结构

ProcessStartInfo pInfo = new ProcessStartInfo();

pInfo.UseShellExecute = true;

for ( int i = 0; i < args.Length; i++ ) {

if (File.Exists(args[i])) {

pInfo.FileName = args[i];

//启动进程

Process p = Process.Start(pInfo);

}

}

}

}

编译Starter.cs

执行Starter test.bmp test.xls

将分别打开MSPaint.exe Execel.exe