VB的shell命令问题

显示全部楼层 · 2009-6-24 13:40:13

那你知道这个的错误吗
Private Sub Command5_Click()
cd.DialogTitle = "打开什么？"
cd.Filter = "Microsoft应用软件|*.exe"
cd.FilterIndex = 1
cd.ShowOpen
If cd.FileName = "" Then
Exit Sub
Else
jlkmhkjkjkjkkjkjgfgffhdgdfsffsfsfsfsfsfsfsfsffssssssssssssssssss 0 = Shell("& cd.FileName")
End If
End Sub
还是shell的问题
COMMONDIALOG工具加入了，也改名为CD了，他提示是SHELL的问题。没有找到文件。

千问 · 2009-6-24 13:40:13

将jlkmhkjkjkjkkjkjgfgffhdgdfsffsfsfsfsfsfsfsfsffssssssssssssssssss 0 = Shell("& cd.FileName")改为Shellcd.FileName...