並參照引用 DotNetZipLib-DevKit-v1.9.zip\DotNetZip-v1.9\Release\Ionic.Zip.dll
Imports Ionic.Zip
If (IO.Directory.Exists(Server.MapPath("~\Photo_Package\" + DropDownList1.SelectedItem.Text))) Then
IO.Directory.Delete(Server.MapPath("~\Photo_Package\" + DropDownList1.SelectedItem.Text), True)
End If
IO.Directory.CreateDirectory(Server.MapPath("~\Photo_Package\" + DropDownList1.SelectedItem.Text))
Dim scrpath As String = Server.MapPath("~\File_Save\")
Dim dstpath As String = Server.MapPath("~\Photo_Package\" + DropDownList1.SelectedItem.Text + "\")
File.Copy(scrpath + '檔名', dstpath + Replace(Replace('檔名', "\", ""), "/", "") + ".JPG", True)
Dim files() As String = Directory.GetFiles(Server.MapPath("~\Photo_Package\" + DropDownList1.SelectedItem.Text))
Using zip As New ZipFile(System.Text.Encoding.Default)'中文問題
For Each s As String In files
zip.AddFile(s, DropDownList1.SelectedItem.Text)
Next
zip.Save(Server.MapPath("~\Photo_Package\" + DropDownList1.SelectedItem.Text + ".zip"))
End Using
