紧急请教关于shell函数的问题!!!!!!

Question

我执行以下这条命令没问题v = Shell("C:\micaps\micaps20\micaps20.exe  C:\micaps\micaps20\para1.dat d:\ddd\combine\height700.zht ", vbNormalFocus)
   我现在想改成从文件中读取路径,不是在这指定的.
假设du1和du2为从文件中读取的
du1 = "c:\micaps"
du2 = "d:\grapes"s1 = du1 & "\micaps20\micaps20.exe"
s2 = du1 & "\micaps20\para1.dat"
s3 = du2 & "\combine\height500.zht"
v = Shell("s1 s2 s3", vbNormalFocus)
这样执行shell函数时就会提示"实时错误53,文件未找到",请问该怎么改才能实现这个功能呢?

Answer 1

前面两个在最后要空一格
v = Shell(s1 & s2 & s3, vbNormalFocus)

Answer 2

s1 = du1 & "\micaps20\micaps20.exe "
                                  ^
s2 = du1 & "\micaps20\para1.dat "
                               ^
s3 = du2 & "\combine\height500.zht "
                                  ^v = Shell( s1 &  s2  & s3, vbNormalFocus)
          ^   ^      ^

Answer 3

du1 = "c:\micaps"
du2="d:\ddd"s1 = du1 & "\micaps20\micaps20.exe"
s2 = du1 & "\micaps20\para1.dat"
s3 = du2 & "\combine\height500.zht"
v = Shell(s1 & " " & s2 & " " & s3, vbNormalFocus)

Answer 4

du1 = "c:\micaps"
du2="d:\ddd"s1 = du1 & "\micaps20\micaps20.exe"
s2 = du1 & "\micaps20\para1.dat"
s3 = du2 & "\combine\height500.zht"
v = Shell(s1 & " " & s2 & " " & s3 & " ", vbNormalFocus)

Answer 5

你把shell() 改为Msgbox () 看看你在Shell什么东东.