[vb.net] 집(zip)파일 압축풀기/압축하기
하나를하더라도최선을
2020-05-06 20:01:12
52,086
0
0
참조(System.IO.Compression.FileSystem.dll)를 추가 해주세요
Dim MyDocuments As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\"
Dim startPath As String = "." & Application.StartupPath.Substring(2)
Dim zipPath As String = ".\result.zip"
Dim extractPath As String = String.Concat(MyDocuments, Application.ProductName, "\User Data")
'ZipFile.CreateFromDirectory(startPath, zipPath) '// 압축하기
Try
ZipFile.ExtractToDirectory(zipPath, extractPath) '// 압축풀기
Catch ex As Exception
End Try