ray88’s diary

■呼び出し元 '圧縮呼び出しテスト Public Function testZip() '変数の宣言 Dim ret As Boolean Dim filepath As Variant '圧縮対象フォルダ用配列 Dim files(0) '配列に圧縮元フォルダのパスを格納する files(0) = "圧縮するフォルダのフルパスを入力" '圧縮ファイルのパスを指定する（拡張子まで含める） filepath = "作…