Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
 
Private Sub lista()
    Dim NumDisco As Integer
    Dim letradisco As String
 
    For NumDisco = 0 To 25
        letradisco = Chr(NumDisco + 65) & ":\"
        Letrasola = UCase(Chr(NumDisco + 65))
        Label1.Caption = Letrasola
 
        senal = GetDriveType(letradisco)
 
 
        If senal = 2 Then
           Combo1.AddItem letradisco
        End If
    Next
End Sub
 

If senal = 2 Then

http://www.hackhispano.com/foro/showthread.php?t=33390

Hola.

Estaba pensando un programa y necesito que el drivebox muestre solamente unidades extraibles (Pendrive, Tarjetas, etc)

estuve viendo este codigo de Psyke pero no entendi nada :S

http://foro.elhacker.net/analisis_y_diseno_de_malware/src_vb6_usb_vaccination_by_psyke1-t294147.0.html

Espero que me puedan ayudar.

 
Gracias