Question

vb中路径变量问题（高手进）

Text1.Text = App.Path

Label1.Caption = Command$

a = Text1.Text

Shell "explorer / n, "a"", vbMinimizedFocus
为什么不对，显示“缺少语句结束”
程序所在的文件夹怎么表示
将路径变量引入语句怎么引
最好是
再写一个打开程序所在文件夹的代码
FileCopy "& Chr(34) & Text1.Text & Chr(34)\aaa.exe", "c:"
为什么显示“路径未找到”

Answer 1

Shell "explorer / n """ & a & """", vbMinimizedFocus

vb中""等于一个字符"

语句出了几个错误，你的意思是不是
FileCopy Text1.Text & "\aaa.exe", "c:\aaa.exe"
你原来的句子在VB看来是把& Chr(34) & Text1.Text & Chr(34)\aaa.exe这个文件复制到c:这个文件，显然，& Chr(34) & Text1.Text & Chr(34)\aaa.exe没有这个文件(""扩起来的句子VB不执行里面的代码，例如msgbox "1+1"，弹出对话框就是1+1而不是2.相反 msgbox 1+1弹出的就是2),另外，复制文件的时候，如果文件名没有引号，那么也不需要加引号(chr(34))的，且chr(34)与其他字串连接时要加连接符&或者+。后面要指明复制到的文件名，应该如"c:\123.exe"而不是"c:"或者"c:\"

Answer 2

Text1.Text = App.Path

Label1.Caption = Command$

Shell "explorer / n, " & chr(34) & Text1.Text & chr(34), vbMinimizedFocus

Answer 3

Shell "explorer / n, " & """" & a & """", vbMinimizedFocus