【vba】7za.exeで複数ファイルを1個のzipファイル

App Inventor製、自作ハンディーターミナルアプリ用に作った新マスタデータインポート機能の為に、bulk importデータ生成MS-Access VBAプログラム側も改良。

[zip利用の新マスターインポート機能]

40個のファイルを1個のZIPファイルに出来るコマンドラインプログラムが無いかGoogle検索。

で見つかったのが7za
[インストールしないでzipや7z圧縮ファイルを作る方法]

ワイルドカードが使えるのでどんなにファイルがたくさん有ってもコマンド1行で実行出来る。

MS-Access VBAからでも簡単に実行出来そうです。

これをハンディーターミナルアプリ用bulk importファイル作成Access VBAに組み込めば新マスターインポート機能用ファイルも作れそう!

c:\Temp>7za a master.zip .\master\*.txt

7-Zip (A) 9.20  Copyright (c) 1999-2010 Igor Pavlov  2010-11-18
Scanning

Creating archive master.zip

Compressing  m1.txt
Compressing  m2.txt
Compressing  m3.txt

Everything is Ok
Shell ("cmd.exe /K c:\katabe\7za.exe a c:\katabe\MASTER.zip c:\katabe\master\AImaster*.txt")

動いた!

追記:
実際のVBAプログラムへ追加すると、あっさりZIPファイルが出来ました!
で、せっかくなので出来たZIPファイルをFTPサーバへputさせられないかと試行錯誤・・・
でも、うまく動きませんでした。
現在、Windows10のFTPコマンドの勉強中・・・・・

[Windows7で動いてるこの仕組み、なぜか10では途中で止まる!]

コメントを残す

メールアドレスが公開されることはありません。

CAPTCHA