Zipジップ

指定したフォルダをZIP形式のファイルに圧縮します。

構文
Zip( path, destination )
引数
path 必須
destination省略可
戻り値

プログラム

UWSC
//////////////////////////////////////////////////
// 【引数】
//   path 
//   destination 
// 【戻り値】
//   
//////////////////////////////////////////////////
PROCEDURE Zip(path, destination = "")
	IFB destination = "" THEN
		DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
		destination = FSO.GetParentFolderName(path)
	ENDIF
	POWERSHELL("Compress-Archive -Path " + path + " -DestinationPath " + destination)
FEND

この記事は役に立ちましたか?

はい
いいえ
ご協力ありがとうございます。