[기타] [vb.net] 집(zip)파일 압축풀기/압축하기
하나를하더라도최선을
2020-05-06 20:01
8,959
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
댓글목록0