0

我对VB非常生疏，因为我已经使用它两年了。我很快就会重新投入使用它，因为我现在比以往任何时候都更有理由使用它。现在我正在尝试创建一个 VB 脚本来帮助我修改一些文件。我目前需要一种方法来获取文件夹并以某种方式打包它们。我想做的是：

  • 取一个带有客户名称的文件夹
  • 使用所述客户端名称创建一个 zip 文件
  • 首先添加一个不会改变的文件（ship.xml）
  • 获取客户端文件夹的内容并添加到 zip 文件夹。
  • 将 .zip 重命名为 .tar 格式

另外，如果您知道有关 VB 的任何好的网站教程，请告诉我。我正在使用 Visual Basic 2010 终极版。

4

1 回答 1

0

不知道您对客户端名称（计算机名称？）的确切含义，但这应该可以帮助您入门，您可以自己添加其余部分，否则您会生锈8>）

zip = "c:\myzip.zip"
source = "G:\script\zip"

set fso = createObject("Scripting.FileSystemObject")
set shell = createObject("shell.application")
'make empty zip
set file = fso.CreateTextFile(zip, True)
file.write("PK" & chr(5) & chr(6) & string(18,chr(0)))
file.close

set objFolder = shell.NameSpace(source)
set oZip = shell.NameSpace(zip)
if not oZip is nothing then
  'add files to zip
  oZip.CopyHere objFolder
  wait_until_zipped(zip)
  oZip.CopyHere "c:\ship.xml"
  wait_until_zipped(zip)
  'rename the zip to tar
  fso.MoveFile zip, "c:\myzip.tar"
end if

'cleanup
set oZip = Nothing
set shell = Nothing
set fso = Nothing


function wait_until_zipped(zip)
  set handle = fso.getFile(zip)
  do
    wscript.sleep 500
    max = handle.size
  loop while handle.size > max
end function
于 2012-08-27T20:11:09.550 回答