Imports System.IO
Imports System.IO.Compression
 
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        Dim FileToExtract As String = "d:\test\Buchtitel.epub"
        Dim extractPath As String = "d:\test\extract"
        ZipFile.ExtractToDirectory(FileToExtract, extractPath)
    End Sub
End Class

EALA FREYA FRESENA

Beitrag wurde zuletzt am 20.07.15 um 21:22:47 editiert.