vb中用Shell函数出错

来源：百度知道 编辑：UC知道 时间：2024/05/31 08:14:03
dim a
a=shell(commondialog1.filename,vbNormalNoFocus)

运行时出现“实时错误 '5' 无效的过程调用或参数”

请问问题出在哪里？
1、2楼所说的问题，在程序里都写好了。

shell 调用的只有.exe文件，其它文件类型你想要它运行不能用“shell”
而应该用Call Shell("rundll32.exe url.dll,FileProtocolHandler " & a, 1)

a为文件对话框的返回值。这种方法是模拟(开始)中的(运行...)功能。不论你要打开的是何种类型文件，它都能打开。

你没有放到控件的过程里面吧

Private Sub Command2_Click()
Dim a
a = Shell(commondialog1.FileName, vbNormalNoFocus)
End Sub

a=shell(commondialog1.filename,vbNormalNoFocus)
这行语句应该放在调用commondialog1的ShowOpen后面，
这样从commondialog1对话框中选择的文件才能传到shell命令里
看看commondialog1.filename的返回值是否正常

gdfgdf