ファイルをvbaで圧縮したいのですが
http://okwave.jp/qa/q5155002.html
を参考にしているのですが、リンク先の型と同じく「ファイルが見つかりません。 (Error 53)」になります。
当方の環境は、win764bit、エクセル２００７です。
コードはリンク先のものをそのままエクセルにコピペしました。
'ファイル名取得
Filename = myDeskTopPath & "\test.xlsm"
だけ変更しました。
ZIP32J.DLL
zip32.dll
が必要とのことなので、
http://www.vector.co.jp/soft/win95/util/se062163.html
と
http://www.csdinc.co.jp/archiver/lib/zip32j.html
の
zip232dN.zip（http://homepage3.nifty.com/csdinc/archiver/lib/zip232dN.zip）
を落として、C:\WINDOWS\system32に入れました。
しかしエラーになります。
RC = Zip(hWnd, strCommand, strOutPut, lngSize)
のエラー時の値は、
hWnd→0
strCommand→-u test.zip test.xlsm（デスクトップにあります）
strOutPut→についてはイミディエイトウインドウで「?strOutPut」しても何も表示されません。
しかしstrOutPutにカーソルを充てると"・・・・・・・・"となっています。
lngSize→512
です。
OSが64bitだと無理なのでしょうか？
パソコンに詳しくないのですが、もしかしてC:\WINDOWS\system32ではないフォルダに
ZIP32J.DLL
zip32.dll
を入れるのでしょうか？
ご教授よろしくお願いします。
