Dim zip As New zipFile
Dim zFile As String = ".\export\YS.zip" ‘准备把表A的X列中存在的文件压缩成为一个压缩包,文件名为YS.zip’
If FileSys.FileExists(zfile) Then '如果压缩文件已经存在
zip.Open(zFile) '则打开
Else
zip.Create(zFile) '否则创建
End If
For Each file As String In DataTables("表A").GetValues("X")
If filesys.FileExists(".\export\" & file) = True AndAlso file <> "YS.zip" Then
zip.AddFile(".\export\" & file )
End If
Next
zip.Close()
然后执行就报错了
版本:2020.5.29.8
---------------------------
代码执行出错,错误信息:
System.ArgumentException: 路径中具有非法字符。
在 System.IO.Path.CheckInvalidPathChars(String path, Boolean checkAdditional)
在 System.IO.Path.GetFileName(String path)
在 C1.C1Zip.C1ZipEntryCollection.a(String A_0, Int32 A_1)
在 UserCode.Test()
---------------------------
确定