welcome to tetsuyanbo web site!!

tetsuyanbo

VBA

Excel VBAメモ 外部DLLを使わずにzip形式の圧縮ファイルを作ってみる

投稿日:2018/11/29

少し前に圧縮ファイルを展開するのを記事にしたんだけど(記事はここ)、逆もやってみたくなるのも自然な流れ?
ポイントはこんな感じ。

  • 空のzip形式圧縮ファイルを作成する
    ※ファイルを作るときは圧縮ファイルとして認識させるためのおまじないを書き込む
  • zip形式の圧縮ファイルをフォルダーにみたててファイルをコピーする
    ※ファイルがコピーされたかどうかをチェックする必要がある
  • 外部のDLLを使わない

今回のコードの動きとしてはこんな感じ。

  1. デスクトップに圧縮ファイルを作成する
  2. 圧縮ファイルに入れるファイルはデスクトップにある3つのファイルをコピーする

で、コードはこんな感じ。
コピーするファイルの数は3個ってことにする。

圧縮ファイルの中にコピーするファイルはこんな感じ。

で、実行するとこんな感じ。
デスクトップに圧縮ファイルができとる。

中身を見てるとちゃんとファイルがコピーされとる。

展開してみると展開できる。

んまま、明日への自分へのメモってことで。

-VBA
-, , , , , , , , , , , , , , , , , , , , , ,

Copyright© tetsuyanbo , 2018 All Rights Reserved Powered by STINGER.