C# WindowsアプリケーションでZIPファイルを抽出する方法

private void button1_Click(object sender, EventArgs e)
{
    // Create and configure an OpenFileDialog instance
    OpenFileDialog openFileDialog = new OpenFileDialog();
    openFileDialog.Title = "Select a File";

    // Display the OpenFileDialog and check if the user selected a file
    if (openFileDialog.ShowDialog() == DialogResult.OK)
    {
        // Display the selected file path in a TextBox or perform any other action
        textBox1.Text = openFileDialog.FileName;
    }
}

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
	' Create and configure an OpenFileDialog instance
	Dim openFileDialog As New OpenFileDialog()
	openFileDialog.Title = "Select a File"

	' Display the OpenFileDialog and check if the user selected a file
	If openFileDialog.ShowDialog() = DialogResult.OK Then
		' Display the selected file path in a TextBox or perform any other action
		textBox1.Text = openFileDialog.FileName
	End If
End Sub

private void button2_Click(object sender, EventArgs e)
{
    try
    {
        // Extract the selected ZIP file to the "extracted" directory
        IronZipArchive.ExtractArchiveToDirectory(textBox1.Text, "extracted");

        // Notify the user of successful extraction
        MessageBox.Show("File Successfully Unarchived", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information);
    }
    catch (Exception ex)
    {
        // Handle any errors that occur during extraction
        MessageBox.Show($"Error extracting ZIP file: {ex.Message}", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
    }
}

Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs)
	Try
		' Extract the selected ZIP file to the "extracted" directory
		IronZipArchive.ExtractArchiveToDirectory(textBox1.Text, "extracted")

		' Notify the user of successful extraction
		MessageBox.Show("File Successfully Unarchived", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
	Catch ex As Exception
		' Handle any errors that occur during extraction
		MessageBox.Show($"Error extracting ZIP file: {ex.Message}", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
	End Try
End Sub