• Home
 · 
• Windows System Services
 · 
• VB.Net :- This, Code Similar To, Windows Search, But This Program, Quickly Search Files Better Than

VB.Net :- This, Code Similar To, Windows Search, But This Program, Quickly Search Files Better Than

VB.Net :- This, Code Similar To, Windows Search, But This Program, Quickly Search Files Better Than Windows Search, Automatically Search

API Declarations


Imports System.Collections.ObjectModel



Rate VB.Net :- This, Code Similar To, Windows Search, But This Program, Quickly Search Files Better Than

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    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