Question

VB编程中调用CMD命令处理出现的问题

Answer 1

Private
Sub
Command1_Click()
Dim
p1
As
String
CommonDialog1.ShowOpen
'打开文件
p1
=
CommonDialog1.FileName
'取路径
Text1
=
p1
End
Sub
Private
Sub
Command2_Click()
Dim
p2
As
String
CommonDialog2.ShowOpen
'打开文件
p2
=
CommonDialog2.FileName
'取路径
Text2
=
p2
End
Sub
Private
Sub
Command3_Click()
Dim
shellcode
As
String
shellcode
=
"copy
"
&
Text1
&
"+"
&
Text2
&
"
"
&
Text1
Open
App.Path
&
"\temp.bat"
For
Output
As
#1
Print
#1,
shellcode
Print
#1,
"del
temp.bat"
Close
#1
Shell
"temp.bat"
End
Sub
请复制这段代码，不要自己输入，因为差一个空格就会出错
可以用文本文件测试

Answer 2

最后改成Shell
"cmd.exe
/k
"
&
p1
+
p2
p1,
vbNormalFocus
你的p1,p2都定义在VB中，Cmd不认识。你让VB给Cmd的应该是字符串而不是P1这两个字符。
再看看别人怎么说的。