Ya resolvi mi problema aunque no pude usar un Drivebox use un ComboBox
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
Si quieren cambiar el tipo de unidad que se muestra es asi:
If senal = 2 Then1 y 2 =No Instalado
2 = Extraible
3 = Fijo (Disco Duro)
4 = Remoto
5 = CD o DVD
6 = RAMDISK
Codigo Adaptado desde :
http://www.hackhispano.com/foro/showthread.php?t=33390
Cita de: Post Original en el que preguntaba como hacer
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.
;D ;D ;D
Gracias
Hay un codigo de karckcrack y mio por hay que muestran las unidades explicitas sin hacer un for desde la A a la Z!¡.
Dulce Infierno Lunar!¡.
Cita de: BlackZeroX▓▓▒▒░░ en 5 Junio 2010, 19:11 PM
Hay un codigo de karckcrack y mio por hay que muestran las unidades explicitas sin hacer un for desde la A a la Z!¡.
Dulce Infierno Lunar!¡.
enserio?
Tnes el link a mano?
Estaria bueno verlo.
http://www.advancevb.com.ar/?s=drives
advance-VB
Siempre me da dolor de cabeza :-( :-(
No soy tan Pro :-[ :-[ :-[
Miraste los ejemplos de Karcrack, son super claros.