View Code Snippet

Author: Gehan Fernando
Date Submitted: 6/19/2007
Category: Windows Operations
Compatibility: .NET
This code has been accessed 5811 times.

Task: VB.Net :- This, Code Similar To, Windows Search, But This Program, Quickly Search Files Better Than Windows Search, Automatically Search {Network Map Drives And Removable Drives }. This Is Fully Tested With Windows XP.

Declarations

Code

Private lstItem As ListViewItem Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.ResetText() TextBox2.ResetText() ProgressBar1.Value = 0 Label3.Text = "" ListView1.Items.Clear() Me.Text = "File Finder" Label4.Text = "" TextBox1.Focus() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click On Error Resume Next Me.Cursor = Cursors.WaitCursor Button1.Enabled = False Button1.Refresh() Label4.Text = "" ProgressBar1.Value = 0 Label3.Text = "" ListView1.Items.Clear() Me.Text = "File Finder" Label4.Text = "" If TextBox1.Text.Trim() = "" Then TextBox1.Text = "*.*".Trim() End If Dim searchwhat() As String = TextBox1.Text.Split(New [Char]() {","c}) Dim contains As String = "" If TextBox2.Text.Trim() = "" Then contains = "" Else contains = TextBox2.Text.ToString().Trim() End If Dim drives As ReadOnlyCollection(Of DriveInfo) drives = My.Computer.FileSystem.Drives Dim result As New List(Of String) With ProgressBar1 .Value = 0 .Minimum = 0 .Maximum = drives.Count End With Label3.Text = "Analyzing Start ....!" Label3.Refresh() For Each drive As DriveInfo In drives ProgressBar1.Value = ProgressBar1.Value + 1 Dim drv_CurrentDirectory As String = "" drv_CurrentDirectory = drive.Name.ToString() Label3.Text = "Analyzing Drive " & drive.Name.ToString() Label3.Refresh() Label4.Text = (ProgressBar1.Value / ProgressBar1.Maximum).ToString("00.00") * 100 & "% Completed." Label4.Refresh() result.AddRange(My.Computer.FileSystem.FindInFiles(drv_CurrentDirectory.ToString(), _ contains.ToString(), False, FileIO.SearchOption.SearchTopLevelOnly, _ searchwhat)) For Each directories As String In My.Computer.FileSystem.GetDirectories(drv_CurrentDirectory.ToString()) Dim dir_CurrentDirectory As String = "" dir_CurrentDirectory = directories.ToString() Me.Text = "File Finder, Analyzing Directory :- " & dir_CurrentDirectory.ToString() Me.Refresh() result.AddRange(My.Computer.FileSystem.FindInFiles(dir_CurrentDirectory.ToString(), _ contains.ToString(), False, FileIO.SearchOption.SearchAllSubDirectories, _ searchwhat)) Application.DoEvents() Next directories Next drive Me.Text = "File Finder" With ProgressBar1 .Value = 0 .Minimum = 0 .Maximum = result.Count End With Label4.Text = "" Label4.Text = result.Count.ToString() & " File(s) Found." Label4.Refresh() Label3.Text = "Searching Start ....!" Label3.Refresh() Dim fl_notfound As New List(Of String) If result.Count > 0 Then result.Sort() End If For i As Long = 0 To result.Count - 1 Label3.Text = "Found At " & result.Item(i).ToString() Label3.Refresh() If My.Computer.FileSystem.FileExists(result.Item(i).ToString()) = True Then Dim fl_info As FileInfo fl_info = New FileInfo(result.Item(i).ToString()) lstItem = ListView1.Items.Add(fl_info.Name.ToString()) lstItem.SubItems.Add(fl_info.DirectoryName.ToString()) lstItem.SubItems.Add((fl_info.Length / 1024).ToString("00") & "kb") lstItem.SubItems.Add(fl_info.CreationTime.ToString()) lstItem.SubItems.Add(fl_info.LastAccessTime.ToString()) lstItem.SubItems.Add(fl_info.LastWriteTime.ToString()) ListView1.Refresh() Application.DoEvents() Else fl_notfound.Add(result.Item(i).ToString()) End If ProgressBar1.Value = ProgressBar1.Value + 1 Label4.Text = (ProgressBar1.Value / ProgressBar1.Maximum).ToString("00.00") * 100 & "% Completed." Label4.Refresh() Next Label3.Text = "" Label3.Refresh() Label4.Text = "" Label4.Refresh() Me.Cursor = Cursors.Default With ProgressBar1 .Value = 0 .Minimum = 0 End With Button1.Enabled = True Button1.Refresh() If fl_notfound.Count > 0 Then MessageBox.Show(fl_notfound.Count.ToString() & " Missing File(s) Found During The File Search", "Missing File(s)", _ MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End If End Sub