| ■72743 / inTopicNo.1) |
フォルダを圧縮 ⇒ 処理中に「アクセス拒否」 |
□投稿者/ トマトスパ (1回)-(2014/07/10(Thu) 16:24:59)
|
分類:[VB.NET/VB2005 以降]
環境
Visual Studio2008(VB.NET)
目的
特定のフォルダをZIPに圧縮
お世話になります。
あるフォルダをZIPに圧縮するプログラムを組んでいるのですが圧縮処理中に「アクセスが拒否されました」とでてしまい困っております。
プログラム参考URL
http://infotec.roof-balcony.com/vbnet/zip/
以下コード
Dim zipPath As String = "C:\Users\TS\Documents\test.zip"
'複数ファイルを圧縮したい場合は、下記の配列に追加
Dim filePaths As String() = {txt_path.Text}
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()
テスト用のフォルダの権限は「everyone」でフルコントロールできるようになっているのですが
それでもエラーが出てしまいます。
原因がわからず困っております。
どなたか解決方法をご存知の方いらっしゃいましたら教えていただければと思います。
よろしくお願いします。
|
|