http://ajya.hatenablog.jp/entry/2015/08/21/060000
スポンサーリンク
.NET Framework 4.5からzip形式の圧縮/解凍ができるようになっている
スポンサーリンク
初期状態のままでは機能を利用できないので、プロジェクトに参照の追加を行います。
- メニューから、[プロジェクト]-[参照の追加]を選ぶと、[参照マネージャー]が表示されます。
[アセンブリ]-[フレームワーク]をクリックして、[System.IO.Compression.FileSystem]にチェックを入れて、[OK]ボタンをクリックします。
これで準備が完了し、操作ができるようになります。
次にソースコードです。
まずファイルの先頭で、次のように記述して、名前空間をインポートします。
zip形式ファイルを解凍するには、次のように記述します。
解凍先のフォルダが存在するとエラーになるので、再利用する場合は、解凍前に削除しておきます。
zip形式にフォルダを圧縮するには、次のように記述します。
圧縮後のファイルが存在した場合はエラーになるので、解凍時と同じように圧縮前に削除しておきます。
名前空間をインポートしない場合は、次のように記述します。
Imports System.IO
Imports System.IO.Compression
Module Module1
Sub Main()
'///// 指定したフォルダ下、ファイル有無の判断
'Dim path As String = "D:\Test\既存フォルダ\判断フォルダ"
'Dim ishavefile As Boolean = IsExistsFileInFolder(path)
'If ishavefile Then
' MsgBox("存在")
'Else
' MsgBox("不存在")
'End If
'///// 指定したフォルダ下のファイル全て削除する
'DeleteallFillInDirectory("D:\Test\親フォルダ","*.csv")
copyFile("D:\Test\既存フォルダ\元データ1.csv","D:\Test\親フォルダ\元データ1.csv")
'///// ++ファイル圧縮と解凍
' ''(指定したフォルダ下のファイルを圧縮する)
'Dim startPath As String = "D:\Test\既存フォルダ"
'Dim zipPath As String = "D:\Test\親フォルダ"
'Dim extractPath As String = "D:\Test\親フォルダ"
' '' ファイルを圧縮する
''ZipFiletoDirectory(startPath,zipPath,"result.zip")
' '' ファイルを解凍する
'Dim zipPath2 As String = "D:\Test\親フォルダ\result.zip"
'ExtractZipFiletoDirectory(zipPath2,extractPath)
' ''--ファイル圧縮と解凍
End Sub
''' <summary>
''' 指定したフォルダ下に、ファイルを圧縮する
''' </summary>
''' <remarks></remarks>
Public Sub ZipFiletoDirectory(ByVal sourceFileFolderPath As String,ByVal targetFileFolderPath As String,ByVal zipFileName As String)
ZipFile.CreateFromDirectory(sourceFileFolderPath,targetFileFolderPath & "\" & zipFileName)
''' ZIPファイルを指定したフォルダ下に解凍する
Public Sub ExtractZipFiletoDirectory(ByVal zipFilePath As String,ByVal extractFilePath As String)
ZipFile.ExtractToDirectory(zipFilePath,extractFilePath)
''' 指定したフォルダ下に、ファイル有無の判断
''' <returns>true:ファイル有る、false:ファイル無し</returns>
Public Function IsExistsFileInFolder(ByVal folderPath As String) As Boolean
Dim fso = CreateObject("Scripting.FileSystemObject")
If fso.GetFolder(folderPath).Files.Count = 0 Then
'不存在
Return False
Else
'存在
Return True
End If
End Function
''' 指定したフォルダ下のファイルを削除する
Public Sub DeleteallFillInDirectory(ByVal deleteFileFolderPath As String,ByVal fileType As String)
deleteFileFolderPath,_
FileIO.SearchOption.SearchAllSubDirectories,69); font-size:13.3333px; widows:1">
fileType)
My.Computer.FileSystem.DeleteFile(foundFile,69); font-size:13.3333px; widows:1">
FileIO.UIOption.OnlyErrorDialogs,_
FileIO.RecycleOption.DeletePermanently)
Next
''' ファイルのコピー
Public Sub copyFile(ByVal sourceFilePath As String,ByVal targetFilePath As String)
'\\コンピュータ名\共有名\(ディレクトリ名\)ファイル名
' 既に同名のファイルが存在していても上書きする場合
End Module
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。