Lhaplusで複数のフォルダを個別圧縮するバッチファイル

Lhaplusは圧縮解凍ソフトの定番中の定番ですが、標準では個別圧縮に対応していません。コマンドラインが使用できるので色々と応用が利いて便利ですね。

Option Explicit

Dim args, arg
Dim objShell

Dim arcPath
Dim command

Dim delim
Dim dest

Set args = WScript.Arguments

'64bit環境の場合はこちら
arcPath = """C:\Program Files (x86)\Lhaplus\Lhaplus.exe"""
'32bit環境の場合はこちら
'arcPath = """C:\Program Files\Lhaplus\Lhaplus.exe"""

For Each arg In args
    delim = InStrRev(arg, "\", -1, 1)
    dest = Left(arg, delim)
    command = arcPath & " /o:" & dest & " /c:zip """ & arg & ""
    Set objShell = WScript.CreateObject("WScript.Shell")
    objShell.Run command, 1, True
    Set objShell = Nothing
Next

OSが32bit（Windows7は流石にもう現役ではないか）の場合は、Lhaplusのインストールフォルダが異なるので、15行目と17行目のコメントを切り替えてください。

にほんブログ村