0

私はVBを2年間使用して以来、VBに非常に慣れていません。これまで以上に使用する理由が増えたので、すぐに戻ってきます。現在、いくつかのファイルを変更するのに役立つ VB スクリプトを作成しようとしています。現在、フォルダーを取得して特定の方法でパッケージ化する方法が必要です。私がやろうとしていることはこれです：

  • クライアント名のフォルダを取得します
  • 上記のクライアント名で zip ファイルを作成します
  • 最初に変更されない特定のファイルを追加します（ship.xml）
  • client フォルダーの内容を取得し、zip フォルダーに追加します。
  • .zip を .tar 形式に名前変更

また、VB に関する優れたサイト チュートリアルがあれば教えてください。Visual Basic 2010 Ultimate を使用しています。

4

1 に答える 1

0

clientname（computername？）の意味が正確にはわかりませんが、これで開始できます。残りは自分で追加できます。そうしないと、錆びたままになります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 に答える