Question

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

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

如果您对VB有任何好的网站教程，请告诉我。我使用的是Visual Basic 2010终极版。

Answer 1

不确切地知道你对clientname（computername？）的意思，但这应该让你开始，你可以自己添加其余的，否则你将保持生锈8＆gt;）

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

用于打包文件的VBscript

1 个答案: