|
分類:[.NET 全般]
vjslibライブラリを利用して、複数のpdfファイルをzip圧縮しようとしています。
以下のようなコードを書いていますが、
Dim f As String = System.IO.Path.GetFileName(file)
のところで、
'java.lang.System' のタイプ初期化子が例外をスローしました。
というエラーが発生します。
開発環境はVisualBasic2010です。
解消方法を教えて頂ければ幸いです。
---------------------------------------------------------------------------------------------------
Dim zipPath As String = “C:\test.zip”
‘Dim filePaths As String() = {“C:\test1.pdf”}
Dim fos As New java.io.FileOutputStream(zipPath)
Dim zos As New java.util.zip.ZipOutputStream(fos)
Dim file As String
For Each file In filePaths
Dim f As String = System.IO.Path.GetFileName(file)
Dim ze As New java.util.zip.ZipEntry(f)
ze.setMethod(java.util.zip.ZipEntry.DEFLATED)
zos.putNextEntry(ze)
Dim fis As New java.io.FileInputStream(file)
Dim buffer(8191) As System.SByte
While True
Dim len As Integer = fis.read(buffer, 0, buffer.Length)
If len < = 0 Then
Exit While
End If
zos.write(buffer, 0, len)
End While
fis.close()
zos.closeEntry()
Next file
zos.close()
fos.close()
|