[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^5: 解凍せずにZIPファイルへフォルダを追加する方法(解決) 投稿日 ： 2016/08/07(Sun) 21:10 投稿者 ： Kobaちゃん
| > Dim zf As New ICSharpCode.SharpZipLib.Zip.ZipFile(f) f:ファイルのフルパス > zf.Add(f,エントリパス名) > 第2引数でエントリ名を指定しするとできそうです。現在、試しいるところです。 > > 結果がでましたら、投稿する予定です。 解決しました。 X.zipを解凍すると下記のように期待通りのフォルダ構造で解凍できました。 A\aa\a\ファイル１ A\aa\a\ファイル２ B\bb\b\ファイル１ B\bb\b\ファイル２ 下記のような感じで作成しました fileNamには、"....\B\bb\b\ファイル１"または、"....\B\bb\b\ファイル２"が 入ります。 'ZipFileオブジェクトの作成 Dim zf As New ICSharpCode.SharpZipLib.Zip.ZipFile(zipFileNam) 'ZipFileの更新を開始 zf.BeginUpdate() zf.Add(fileNam, fileNam.Replace("....\", "")) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ※"....\"(親パスの先頭)を""に置換してエントリ名を定義 'ZipFileの更新をコミット zf.CommitUpdate() '閉じる zf.Close() |
をクリックするとツリー全体を一括表示します） - 解凍せずにZIPファイルへフォルダを追加する方法 - Kobaちゃん 16/08/06-16:31No.11703