帮助解释一下下面的程序的错误,在vb6.0环境下运行,顺便指点一下怎么用shell()函数运行外部文件

来源:百度知道 编辑:UC知道 时间:2024/06/16 10:51:20
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub File1_DblClick()
x = Shell(File1.filename)
End Sub

drive1是一个驱动控件,dir1 是一目录列表框,file1是一文件列表框,运行是总是提示找不到文件
file1.filename是我电脑上存在的*.exe 文件
调试的时候观察file1.filename的值只有名字没有路径,
路径怎么也加不上

Private Sub File1_DblClick()
Dim s As String
Dim fname As String
s = Dir1.Path + "\" + File1.FileName
Print s
X = Shell(s, 1)
End Sub
这样就OK了,哈哈

好久没完6.0了,还真记不住了,不过楼主这个问题应该很简单,你网上随便找找帮组都可以,SHELL的话你只要查一下他的参数就可以了啊,在我的印象里
shell 你要调用的程序位置和名词,窗体状态

file1.filename是要存在的文件