タイトル : WindowsXP標準機能でのZip作成について 投稿日 : 2008/10/22(Wed) 20:44 投稿者 : おまる
現在WindowsXP以降のOSで入っているZipの解凍、圧縮、リストアップ機能を使用して VB2005で動作するクラスを作成しています。 しかし、下記のコードでコピーを行ったのですがd=のところでエラーになります。 中身を見るとaにNameSpaceが無いように感じます。 b=のところでbに値が設定されていませんので。(vb6では同じ書き方でセットされています) 対策をお願いします。もう1週間悩んでいます。 Dim a as Object Dim b as Object a = CreateObject("Shell.Application") b = a.NameSpace("C:\Test\test.zip") c = objShell.NameSpace("C:\Test\test") d = c.ParseName("test.txt") b.CopyHere(d) |