WSH を用いてZIPファイルを作成する方法を探していたが、Windows XPだと以外に簡単に出来ることが判明。 option explicit Dim files(0) files(0)=".\test.txt" Call MakeZip(".\temp.zip",files) Sub MakeZip(ByVal ZipPath, ByRef FileArray) Dim sfo,app,file,num Set sfo=CreateObject("Scripting.FileSystemObject") Set app = CreateObject("Shell.Application") ZipPath=sfo.GetAbsolutePathName(ZipPath) 'Create empty zip file Dim arrHex,