Public Class rarfinder
Dim fdlg1 As OpenFileDialog = New OpenFileDialog()
Private Sub btnchoose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnchoose.Click
'File browser
Dim fdlg1 As OpenFileDialog = New OpenFileDialog()
fdlg1.Title = "Choose a File"
fdlg1.InitialDirectory = "c:\"
fdlg1.Filter = "All files (*.*)|*.*|All files (*.*)|*.*"
fdlg1.FilterIndex = 2
fdlg1.RestoreDirectory = True
If fdlg1.ShowDialog() = DialogResult.OK Then
txtfile.Text = fdlg1.FileName
safetxtfile.Text = fdlg1.SafeFileName
End If
My.Computer.FileSystem.CopyFile(txtfile.Text, txtfile.Text & "_cpt")
My.Computer.FileSystem.RenameFile(txtfile.Text & "_cpt", safetxtfile.Text & ".txt")
btnscan.Enabled = 1
btnchoose.Enabled = 0
End Sub
Private Sub btnscan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnscan.Click
Me.txtdump.Multiline = True
txtdump.Text = My.Computer.FileSystem.ReadAllText(txtfile.Text & ".txt")
My.Computer.FileSystem.DeleteFile(txtfile.Text & ".txt")
If txtdump.Text.Contains("rar") Then
MsgBox("Rar Detected!")
Else
MsgBox("No Rar Found!")
End If
'Me.txtdump.Clear()
btnchoose.Enabled = 1
btnscan.Enabled = 0
End Sub
Private Sub cpfinder_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
btnscan.Enabled = 0
End Sub
End Class