Display Drive Names?

[reconrey]

Well hi! I found sume code in VB6- but converted it to VB.NET 2010. The program puts all of your drives into a listbox but its only the letter name, how can i get the drive name too? Here is my code:

Public Class Form1
    Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Integer, ByVal lpBuffer As String) As Integer
    Private Function GetDriveStrings() As String
        Dim result As Integer
        Dim strDrives As String
        Dim lenStrDrives As Integer
        result = GetLogicalDriveStrings(0, strDrives)
        strDrives = New String(Chr(0), result)
        lenStrDrives = result
        result = GetLogicalDriveStrings(lenStrDrives, strDrives)
        If result = 0 Then
            GetDriveStrings = ""
        Else
            GetDriveStrings = strDrives
        End If
    End Function

    Private Sub DisplayDriveTypes(ByRef drives As String)
        Dim pos As Integer
        Dim drive As String
        List1.Items.Clear()
        pos = 1
        Do While Not Mid(drives, pos, 1) = Chr(0)
            drive = Mid(drives, pos, 3)
            pos = pos + 4
            List1.Items.Add("(" & UCase(drive) & ")")
        Loop
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strDrives As String
        strDrives = GetDriveStrings()

        If strDrives = "" Then
            MsgBox("No Drives were found!", MsgBoxStyle.Critical)
        Else
            DisplayDriveTypes(strDrives)
        End If
    End Sub
End Class

[jmcilhinney]

You don't need any of that API stuff. Use the System.IO.DriveInfo class in VB.NET.

[reconrey]

o ok....

[reconrey]

umm how would i add all the drives to the listbox?

[Pradeep1210]

like this:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ListBox1.Items.Clear()
    For Each drive As IO.DriveInfo In IO.DriveInfo.GetDrives
        ListBox1.Items.Add(drive.Name)
    Next
End Sub

[reconrey]

how would i make it say Local Disk C:/ instead of just C:/

[Pradeep1210]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ListBox1.Items.Clear()
    For Each drive As IO.DriveInfo In IO.DriveInfo.GetDrives
        Dim itemText As String = drive.Name
        If drive.IsReady AndAlso drive.VolumeLabel <> "" Then
            itemText = drive.VolumeLabel
        Else
            Select Case drive.DriveType
                Case DriveType.Fixed : itemText = "Local Disk "
                Case DriveType.CDRom : itemText = "CD-ROM "
                Case DriveType.Network : itemText = "Network Drive "
                Case DriveType.Removable : itemText = "Removable Disk "
                Case DriveType.Unknown : itemText = "Unknown "
            End Select
        End If
        itemText &= drive.Name
        ListBox1.Items.Add(itemText)
    Next
End Sub

[reconrey]

ok...i got stuck again im trying to add the items to a listview as seprate colums i have the drive name right but for the drive letter cloum they add the first on to the drive letter colum and no more?

[reconrey]

nvm i fixed it, I accedentally put the Dim Count as Integer = 0 inside the for-next statement... ok now i am wondering if its possible to make it so when double click a drive it will open it...?

[gep13]

Hey,

Have a look at the Process Class:

http://msdn.microsoft.com/en-us/libr...s.process.aspx

In the click event that you are using, use Process.Start and pass in the drive that you want to open, assuming of course you are talking about opening Windows Explorer.

Gary

[reconrey]

so wat like process.start(c:/) or suthing?

[gep13]

Hey,

Yip, something like that, although, there are no overloaded methods for the Process.Start method that take the parameter that you have given it:

http://msdn.microsoft.com/en-us/libr...ess.start.aspx

Most likely, you would use this:

http://msdn.microsoft.com/en-us/library/53ezey2s.aspx

Gary

[reconrey]

will that work with just c:/ ?

[reconrey]

ok..it works but how do i make it so when double click an item in the listview it will go to that item, like it will open the drive letter under the Drive letter Column?

[weirddemon]

ok..it works but how do i make it so when double click an item in the listview it will go to that item, like it will open the drive letter under the Drive letter Column?

In the ListView's DoubleCilck event, parse the column that has the drive letter and use that as a parameter for Process.Start.

[reconrey]

so DvLt.ListView.SelectedItems.ToString?

[reconrey]

ummm...its not working...

[jmcilhinney]

ummm...its not working...

What's not working? Instead of waiting for us to write the code for you, show what you've done so we can help you fix it for yourself. That is the best way to learn.

[reconrey]

ok....i have put this under the listview double click event(DvLt is the column i want it to navigate to...):

Dim returnValue As Process
        For Each drive As IO.DriveInfo In IO.DriveInfo.GetDrives
            Try
                Dim Ltr As String = DvLt.ListView.SelectedItems.ToString
                returnValue = Process.Start(DvLt.ListView.SelectedItems.ToString)
            Catch ex As Exception

                MsgBox(ex.Message, MsgBoxStyle.Critical, "ERROR")
            End Try

        Next

[reconrey]

nvm i figured it out

[weirddemon]

ok....i have put this under the listview double click event(DvLt is the column i want it to navigate to...):

You're making this harder than it needs to be. You don't have to do anything with populating new drives.

If all you're trying to do is launch the drive when you double click the item, all you have to do is set a variable as string with the ListView Selected Item's Text. If the drive letter is in the first column, use the first selected item (0), and (1) if it's in the second and so on.

From there, call Process.Start and pass that variable as an argument.

It's literally 3 lines of code.

[reconrey]

i know...i fixed it less code now! I WIN!

[gep13]

Hey,

For the benefit of other people within this community, you might want to think about posting the code that you ended up using.

Also, remember to mark your thread as resolved.

Gary