Question

从单个文件创建zip文件。我已经开始在vb.net上构建一个新的压缩工具，它的工作正常，但我必须首先创建一个目录并将我的文件插入其中然后压缩。如何通过按下按钮5从单个文件制作压缩文件。

我试过这个

ZipFileExtensions.CreateEntryFromFile(TextBox4.Text, TextBox3.Text, CompressionLevel.Optimal)

textbox4是选择的文件，textbox3是文件的名称但它给我的错误类型的值无法转换为System.IO.Compression.ZipArchive

这是我的代码

Imports System.IO
Imports System.IO.Compression

Public Class Form2

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ProgressBar1.Show()
    Timer1.Start()
    TextBox2.Text = TextBox2.Text + "\" + TextBox3.Text
    ' Create ZIP from "source" directory (in program folder).
    ZipFile.CreateFromDirectory(TextBox1.Text,
                                TextBox2.Text + ".zip",
                                CompressionLevel.Optimal,
                                False)
    MessageBox.Show("The Process are complete", "MediaZip", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    ProgressBar1.Hide()
End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub ProgressBar1_Click(sender As Object, e As EventArgs) Handles ProgressBar1.Click

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim dialog As New FolderBrowserDialog()
    dialog.RootFolder = Environment.SpecialFolder.Desktop
    dialog.SelectedPath = "C:\"
    dialog.Description = "Select Application Configuration Files Path"
    If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
        TextBox1.Text = dialog.SelectedPath
    End If
    TextBox1.Text = dialog.SelectedPath

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Dim dialog As New FolderBrowserDialog()
    dialog.RootFolder = Environment.SpecialFolder.Desktop
    dialog.SelectedPath = "C:\"
    dialog.Description = "Select A Folder To Compress"
    If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
        TextBox2.Text = dialog.SelectedPath
    End If
    TextBox2.Text = dialog.SelectedPath
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ProgressBar1.Increment(1 * 55)
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    Dim OpenFileDialog1 As New OpenFileDialog
    OpenFileDialog1.InitialDirectory = "C:\"
    OpenFileDialog1.FileName = "Select A File..."
    OpenFileDialog1.Multiselect = False
    If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
        Dim sName As String = OpenFileDialog1.SafeFileName
        TextBox4.Text = OpenFileDialog1.FileName

    End If
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

End Sub
End Class

Answer 1

我终于将所有错误和它的工作排序，就像我想要的那样。我创建一个临时目录，将所选文件移入其中，然后压缩并将其发送到桌面，最后删除临时目录。这是工作代码

make:auth

从单个文件创建zip文件

1 个答案: