VBA、APIUNLHA32.DLLをVBAから呼び出して、ファイルをLZH形式に圧縮する方法です。標準モジュール等に以下のコードを記述します。ここには、UNLHA32.DLLをVBAから利用するための宣言と、汎用的に呼び出して使うためのプロシージャが書かれています。FunctionCompressFileプロシージャは、次のようにして実行することができます。この例では、「c:\db1.mdb」ファイルを「c:\BackUp.lzh」に圧縮しています。"c:\BackUp.lzh"■コマンドラインのスイッチに関する補足UNLHA32.DLLにはさまざまなコマンドラインのスイッチが用意されています。上記サンプルで使っている"a"は圧縮する命令です。解凍命令も用意されています。"-n"を指定すると、処理中の展開状況ダイアログの表示を抑止することができます。strDataFile"-d1"を指定することで、サブフォルダを再帰的に検索して圧縮、つまりサブフォルダ下のファイルもまとめて圧縮することができます。C:\tmp\の下にあるすべてのMDBファイルをBackUp.lzhに圧縮したい場合は、次のように指定します。*.mdb"その他スイッチの詳細はUNLHA32.DLLのアーカイブに同梱されている「COMMAND.TXT」を参考にすることができます。上記のサンプルコードを実行するには、当然のことながらUNLHA32.DLLが必要となります。これはAccessに付属のものではありませんので、別途インターネット等よりダウンロードして入手し、さらにセットアップしておくことが前提となります。UNLHA32.DLLはMicco氏によるフリーウェアで、以下のサイトなどから入手することができます。|この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。