How to get the drive type in VB.NET by drive letter.

Question

1.00/5 (3 votes)

See more:

I am making a program that shows the type of the user inputted drive by drive letter like pen drive , local disk , cd drive, sdhd, system drive (c:).

What I have tried:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dfunton(TextBox1.Text)
    End Sub

    Private Sub dfunton(ByVal p1 As Object)
        'code for getting drive type
        Label1.Text = "drivetype"
    End Sub

End Class

Posted 19-Jan-18 5:05am

Member 13607190

Updated 19-Jan-18 17:48pm

v2

Add a Solution

2 solutions

Solution 1

Look at the DriveInfo Class (System.IO)[^] - it returns the info you need.

Posted 19-Jan-18 5:25am

OriginalGriff

Comments

Member 13607190 19-Jan-18 12:24pm

I Only need info of a specific drive letter, Not Every Drive.

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Member 13607190 · Accepted Answer · 2018-01-19T17:48:00

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dfunton(TextBox1.Text)
    End Sub

    Private Sub GetDrivetype(ByVal drive As String)
        Try
            Dim Drive_Info As System.IO.DriveInfo
            Drive_Info = New System.IO.DriveInfo(drive)
            Label1.Text = Drive_Info.DriveType.ToString
        Catch ex As Exception
            MsgBox(ex.Data)
        End Try
    End Sub

End Class