工具界面
Imports System.Diagnostics
Public Class 提取文件窗体
Private Sub 开始提取按钮_Click(sender As Object, e As EventArgs) Handles 开始提取按钮.Click
层数 = 0
Call 提取文件(被提取文件夹.Text, 文件类型.Text, 存放文件夹.Text, 提取方式.Text, 关键字.Text, 提取层数.Value)
Process.Start(存放文件夹.Text)
MsgBox("提取完成!")
End Sub
Private Sub 选择1按钮_Click(sender As Object, e As EventArgs) Handles 选择1按钮.Click
被提取文件夹.Text = 选择文件(4)
End Sub
Private Sub 选择2按钮_Click(sender As Object, e As EventArgs) Handles 选择2按钮.Click
存放文件夹.Text = 选择文件(4)
End Sub
End Class
Imports System.Diagnostics
Public Class 提取文件窗体
Private Sub 开始提取按钮_Click(sender As Object, e As EventArgs) Handles 开始提取按钮.Click
层数 = 0
Call 提取文件(被提取文件夹.Text, 文件类型.Text, 存放文件夹.Text, 提取方式.Text, 关键字.Text, 提取层数.Value)
Process.Start(存放文件夹.Text)
MsgBox("提取完成!")
End Sub
Private Sub 选择1按钮_Click(sender As Object, e As EventArgs) Handles 选择1按钮.Click
被提取文件夹.Text = 选择文件(4)
End Sub
Private Sub 选择2按钮_Click(sender As Object, e As EventArgs) Handles 选择2按钮.Click
存放文件夹.Text = 选择文件(4)
End Sub
End Class