UNIDADES DE DISCO EM UM COMBO

MAICONLS 18/07/2005 19:24:11
#94799
Eu tenho esse codigo que peguei aqui no site para me mostrar como se list as unidades de disco em um combo...Mas minha dúvida é se tem como também listar junto com a letra da unidade listar o nome também..Tipo no explorer do windows se vc abre aparece la assim "Unidade de dvd (d:), Disco local(c:)...tem como fazer com que apareça assim no combo ? Obrigado..
MAICONLS 18/07/2005 19:26:51
#94800
O codigo é esse:

Option Explicit

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Function carregar() As String
Dim DriveNum As String
Dim DriveType As Long
DriveNum = 64
Do
DriveNum = DriveNum + 1
DriveType = GetDriveType(Chr$(DriveNum) & ":\")
If DriveType = 1 And DriveNum > 67 Then Exit Do
Select Case DriveType
Case 0: Combo1.AddItem Chr$(DriveNum) + ":"
Case 2: Combo1.AddItem Chr$(DriveNum) + ":"
Case 3: Combo1.AddItem Chr$(DriveNum) + ":"
Case 4: Combo1.AddItem Chr$(DriveNum) + ":"
Case 5: Combo1.AddItem Chr$(DriveNum) + ":"
Case 6: Combo1.AddItem Chr$(DriveNum) + ":"
End Select
Loop
Combo1.ListIndex = 0
End Function

Private Sub Form_Load()

Call carregar

End Sub
MAICONLS 19/07/2005 09:09:03
#94882
?
LCSD 19/07/2005 10:47:29
#94956 Resposta escolhida
Maicon

Você poderia usar os componentes FileListBox, DriveListBox e FileListBox que devem resolver o problema.
[s92]
Tópico encerrado , respostas não são mais permitidas
Voltar