我正在尝试创建一个将文件复制到另一个系统的小程序。系统名称是先前选择的(是一个变量 = “testsystem”)。我有这个子和功能:
Sub tst
Dim copythis
copythis = "xcopy.exe /Y c:\temp\version.bat " & testsystem & "\temp"
Set objShell = CreateObject("Wscript.Shell")
Msgbox AddQuotes(copythis)
objShell.Run AddQuotes(copythis)
End Sub
Function AddQuotes(strInput)
AddQuotes = Chr(34) & strInput & Chr(34)
End Function
messageBox 准确地显示了我需要的字符串:完整的命令。另外,如果我手动执行命令,它可以工作:
C:\temp>xcopy /Y c:\temp\version.bat \\testsystem3\temp
C:\temp\version.bat
1 File(s) copied
我已经为此奋斗了2天。我想我在某处遗漏了一些引号,但无法弄清楚。
谢谢!