ASP VB.NET 線上解壓縮的寫法

透過zip的command mode，在用asp.net 去呼叫執行，並且帶入參數就可以

    Protected Sub exzip()
        Dim dir As String = 『C:\』 ‘主要目錄
        Dim zip As System.Diagnostics.ProcessStartInfo = New System.Diagnostics.ProcessStartInfo()
        zip.FileName = Server.MapPath(『zip.exe』)
        zip.Arguments = 』 x 』 & dir & 『\』 & DropDownList1.SelectedValue & 』 -o』 & dir & 』 -y』
        Dim ziprocess As Diagnostics.Process = System.Diagnostics.Process.Start(zip)
        Label2.Text = DropDownList1.SelectedValue & 『解壓縮成功』
        ziprocess.WaitForExit(180000)
        If Not ziprocess.HasExited Then
            Label2.Text = 『壓縮檔無法在3分鐘內解壓縮完畢，解壓縮失敗』
            ziprocess.Kill()
        End If
    End Sub