杭州交通信息网达人捕鱼2017技巧:问一个vb的问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/01 17:58:44
编制一个打开文件的程序，执行下列语句，为何无法打开？帮我检查一下有什么错误，十分感谢！！！！！
Dim setfilename As String
______________________________________________
Private Sub Command1_Click()
RetVal = Shell("setfilename", 1)
End Sub
______________________________________________
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
______________________________________________
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
______________________________________________
Private Sub File1_Click()
setfilename = File1.Path & "\" & File1.FileName
End Sub
Dim setfilename As String
______________________________________________
Private Sub Command1_Click()
RetVal = Shell("setfilename", 1)
End Sub
______________________________________________
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
______________________________________________
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
______________________________________________
Private Sub File1_Click()
setfilename = File1.Path & "\" & File1.FileName
End Sub
首先shell里面设置的setfilename应为变量，不应加“”,在你的程序代码中，已经将setfilename作为一个定值，当然打不开文件了，你可以将“setfilename”的“”去掉。第二shell函数的功能是执行一个可执行文件，不是所有文件。
没错，把""删去就行了