Dim zip As New C1.C1Zip.C1ZipFile()
Dim fln1 As String = IO.Path.Combine("c:\data\test.zip")
Dim fln2 As String = IO.Path.Combine("c:\data\中文文件名.txt")
'System.Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("zh-cn")
zip.Create(fln1)
zip.Entries.Add(fln2)
zip.Close()