プログラムに圧縮コードを追加しようとしていますが、フォルダー構造を正しく取得できないようです。
フォルダを次のようにしたい:
Root (
-subfolder1
-subfolder2
individual file
individual file
individual file)
したがって、個々のファイルは zip のルート フォルダーにあり、追加したフォルダーはルートのサブフォルダーになります。私のコードは以下です....
Using zip As New ZipFile()
For Each item As System.Xml.XmlNode In Source
If item.InnerText.Contains(".") Then
zip.AddFile(item.InnerText)
Else
zip.AddDirectory(item.InnerText, GetLastDirName(item.InnerText))
End If
Next
For Each item As System.Xml.XmlNode In Destin
Dim path As String = item.InnerText
zip.Save(path.Replace(".zip", "") & "_Archive_" & DateString & ".zip")
Next
End Using
ただし、このzip.addfile(item.innertext)
行は個々のファイルをフル パスに追加します。そのため、ファイルがC:\Pictures\image.jpg
... の場合、すべてのサブフォルダーと共に zip ファイルにそのように表示されます。
個々のファイルだけのフォルダーを作成するなどのことも試しzip.addfile(item.innertext, "individual files")
ました...でも、それらのファイルをルートに保存したいのです。
助言がありますか?