vbscript - ファイルを圧縮し、zip ファイルにファイルの名前を付ける VB スクリプト

Question

フォルダー内のファイルを圧縮し、作成された zip ファイルにファイルの元の名前の名前を付けるには、VB スクリプトのヘルプが必要です。abc.trn という名前の trn ファイルがある場合と同様に、abc.zip という名前の zip ファイルを作成します。どなたか心当たりのある方は助けてください

Answer 1

はいといいえ。SOに関するこの回答によると、 VBscriptを単独で使用することはできません。

圧縮に組み込まれたウィンドウを使用して圧縮および解凍する VBA メソッドもあります。これにより、システムがどのように動作するかについての洞察が得られるはずです。これらのメソッドを、選択したスクリプト言語に組み込むことができる場合があります。

ただし、「Windows シェルの実装依存の動作」を使用できます (これも同じソースから引用)。

Dim fso, winShell, MyTarget, MySource, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set winShell = createObject("shell.application")


MyTarget = Wscript.Arguments.Item(0)
MySource = Wscript.Arguments.Item(1)

Wscript.Echo "Adding " & MySource & " to " & MyTarget

'create a new clean zip archive
Set file = fso.CreateTextFile(MyTarget, True)
file.write("PK" & chr(5) & chr(6) & string(18,chr(0)))
file.close

winShell.NameSpace(MyTarget).CopyHere winShell.NameSpace(MySource).Items

do until winShell.namespace(MyTarget).items.count = winShell.namespace(MySource).items.count
    wscript.sleep 1000 
loop

Set winShell = Nothing
Set fso = Nothing