How to Browse Computer Drives Using VB.Net

Submitted by janobe on Tuesday, November 20, 2018 - 21:37.

Now, let’s learn how to browse computer drives using VB.Net. The function of this program is to browse the entire folder inside your computer drive. In this way you can also view list of files inside the folder of computer drives. You will see it because it will be displayed inside the listbox. Now let’s begin.

Creating Application

Step 1

Open Visual Studio 2015 and create a new windows form application. bdrives123

Step 2

Do the form just like this. bdrive321

Step 3

Double click the Form and do the following codes to display all drives in the first load of the form.

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each dri As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives
            ListBox1.Items.Add(dri)
        Next
    End Sub

Step 4

Double click the ListBox1 and do the following codes to display the entire folder inside the drive.

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        ListBox2.Items.Clear()
        Try
            Dim dri As System.IO.DriveInfo = DirectCast(ListBox1.SelectedItem, System.IO.DriveInfo)
 
            For Each dirInfo As System.IO.DirectoryInfo In dri.RootDirectory.GetDirectories()
                ListBox2.Items.Add(dirInfo)
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Step 5

Double click the ListBox2 and do the following codes to display all files inside the folder.

    Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
        ListBox3.Items.Clear()
        Try
            Dim dirinfo As System.IO.DirectoryInfo = DirectCast(ListBox2.SelectedItem, System.IO.DirectoryInfo)
            For Each f As System.IO.FileInfo In dirinfo.GetFiles()
                ListBox3.Items.Add(f)
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

For more question about this article. You can contact me @ Email – [email protected] Mobile No. – 09305235027 – TNT FB Account – https://www.facebook.com/onnaj.soicalap Or feel free to comment below.

Add new comment

328 views