谁会用VB 以EXE文件的方式运行其它类型的文件啊!

so easy,假如你想使后缀为abc的文件以EXE方式打开,设这个文件是C:\1.abc,那么就这样写代码:

Private Declare Function ShellExecuteA Lib "shell32.dll" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long '声明部分

Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_CLASSES_ROOT\.abc\", "exefile"
ShellExecuteA hwnd, "open", "c:\1.abc", "", "", 0
w.RegDelete "HKEY_CLASSES_ROOT\.abc\"
End Sub

有效代码就4行,第1行采用wscript对注册表进行操作(用这个操作简单,如果你的电脑操作系统过于老,那还是用API吧..),第2行写注册表,申明.abc文件以exe文件方式打开,3行运行,第4行,删除注册表!!

不懂你在说什么。

Shell "d:\1.dat", 1
用shell调用就可以，别的类型的我试了试也可以的如1.a,1.c
要是不行
可以把这个文件拷贝到一个别的文件夹，并重新命名为.exe文件，再调用
不知道你是不是这样意思

regwrite "HKEY_CLASSES_ROOT\.abc