zip形式のフォルダー内のファイルとフォルダーを選択しようとしていますが、選択したフォルダーまでのすべてのフォルダーと、最終フォルダー内のファイルを選択しているようですが、そこにあるフォルダーは選択していません。そしてそれらを圧縮します。たとえば、tbFolderには、「C:\ Users \ tomb \ Desktop \ DeOld \ Mota7」という文字列があります。このフォルダを選択して、このフォルダの内容全体、画像、およびすべてを圧縮します。しかし、何が起こっているのかは次のとおりです。
zipしたいフォルダーまでのフォルダー構造を作成し、フォルダーではなく、この側のファイルだけを追加します。私は線を微調整する必要があると推測しています:
System.IO.Directory.GetFiles(DirectoryToZip)
コード全体は次のとおりです。
Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click
Dim ZipFile As String = "C:\Releases\" & drpService.Text & "-" & DateTime.Now.ToString("YYmmDD") & ".zip"
Dim DirectoryToZip As String = tbFolder.Text
Dim filenames As String() = System.IO.Directory.GetFiles(DirectoryToZip)
Using zip As ZipFile = New ZipFile
zip.AddFiles(filenames)
zip.Save(ZipFile)
End Using
End Sub