あじゃぱー

■[Tips]VBSript と Lhaca でフォルダ群を自動圧縮

Lhacaを使ってカレントディレクトリ内の各ディレクトリを圧縮します

圧縮形式、圧縮先は Lhacaの設定で行います。

'
'  Lhaca を使ってカレントディレクトリ内の
'  各ディレクトリを zip 圧縮する
' 

Option Explicit

' Lhaca.exe のパス
Const lhaca = "C:\usr\bin\Lhaca\Lhaca.exe"

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")

Dim curdir
curdir = WshShell.CurrentDirectory

Dim fso, f, fc, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(curdir)
Set fc = f.SubFolders

For Each f1 in fc
  Dim e
   Set e = WshShell.Exec(lhaca & " """ & f1.Path & """")
   Do while e.Status = 0
     WScript.Sleep 500
   Loop
Next

Lhaca へのパスを変更して Arc.vbs などと保存し、圧縮したいフォルダがあるところへコピーし、実行させればＯＫ。

Permalink | コメント(0)