Zip解凍（パスワード付き）
スクリプトタブのコピペです。
＿↓＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
command = "UnZip"
zip = !Zipファイル!
targetdir = !対象フォルダ!
password = !パスワード指定!
overwrite = "false"
' Zipファイルのパス作成
If Right(zip, 1) = "\" Then
fname = Left(zip, Len(zip) - 1)
Else
fname = zip
End If
SetUMSVariable "$FILE_PATH_TYPE", "12"
SetUMSVariable "$PARSE_FILE_PATH", fname
zip = GetUMSVariable("$PARSE_FILE_PATH")
' 対象フォルダのパス作成
If Right(targetdir, 1) = "\" Then
fname = Left(targetdir, Len(targetdir) - 1)
Else
fname = targetdir
End If
SetUMSVariable "$FILE_PATH_TYPE", "13"
SetUMSVariable "$PARSE_FILE_PATH", fname
targetdir = GetUMSVariable("$PARSE_FILE_PATH")
SetUmsVariable "$LOAD_JAR" , "spv_WindowPos.jar"
if GetUmsVariable("$LOAD_JAR") <> "true" then
Err.Raise 1, "", "ライブラリファイル（spv_WindowPos）が読み込めません。"
end if
SetUMSVariable "$CLEAR_ARGUMENT", ""
SetUMSVariable "$SET_ARGUMENT", command
SetUMSVariable "$SET_ARGUMENT", zip
SetUMSVariable "$SET_ARGUMENT", targetdir
SetUMSVariable "$SET_ARGUMENT", password
SetUMSVariable "$SET_ARGUMENT", overwrite
SetUMSVariable "$SET_ARGUMENT", "-v2"
SetUMSVariable "$RUN_CLASS2", "ActorZip"
if GetUmsVariable("$RUN_CLASS2") <> "true" then
Err.Raise 1, "", "ライブラリ実行（spv_WindowPos）に失敗しました。"
end if
