Question

我有两个不同的功能（复制和压缩）到b执行。我可以用一个wshshell script.i试过----

Dim WshShell, oExec,g,h
h="D:\d"

g="xcopy " & h & " " & "D:\y\ /E & cmd /c cd D:\c & D: & winzip32.exe -min -a D:\a"
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec(g)

Do While oExec.Status = 0
     WScript.Sleep 100
Loop

WScript.Echo oExec.Status

它可以起作用。虽然是单独的程序，即g =“xcopy”＆amp; h＆amp; “”＆amp; “D：\ y \ / E”和g =“cmd / c cd D：\ d＆amp; D：＆amp; winzip32.exe -min -a D：\ a”有效。我很抱歉格式化问题。任何帮助表示赞赏。

Answer 1

我认为你不能这样做：＆amp; operator是命令行shell的一部分，而不是CreateProcess或ShellAPI框架的一部分。

我认为有几种方法可以解决这个问题：

调用CMD.exe并将命令行作为参数传递。（即“％ComSpec％/ c”＆amp; Stuff）
即时编写批处理并执行它。
只需编写两个WshShell.Exec而不是一个调用。这可能更好，因为无论如何你都可以检查过程中每个部分的结果。您甚至可以在脚本中执行复制，而不是调用xcopy进行额外的错误检查和记录。

这是一个示例代码，介绍如何复制文件夹，然后在VBScript中删除另一个文件夹：

Dim WshShell, oExec, oFS, oF

szSourcePath="c:\tmp\testfolderSrc"
szDestinationPath="c:\tmp\testfolderDest"
szDestinationZip="c:\tmp\final.zip"
bOverwrite=true

' Create objects
Set oFS = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")

' cleanup target folder
if  oFS.FolderExists(szDestinationPath) then
  oFS.DeleteFolder szDestinationPath, true
end if
' Create target folder
set oF = oFS.CreateFolder(szDestinationPath)


' Copy content of the source folder to the target folder
oFS.CopyFolder szSourcePath & "\*", szDestinationPath, bOverwrite

' delete old zip
if oFS.FileExists("c:\myzip.zip") then
  oFS.deleteFile("c:\myzip.zip")
end if

wshShell.CurrentDirectory = "c:\tmp\" ' set current directory to this
Set oExec = WshShell.Exec("c:\program files\winzip\winzip32.exe -min -a c:\myzip.zip" )
Do While oExec.Status = 0
  WScript.Sleep 100
Loop

使用wshshell执行两个函数

1 个答案: