Reconocimiento de unidad
Publicado por carlos (125 intervenciones) el 11/01/2008 20:42:56
tengo un prigrama con este codigo
For i = 68 To 90 'de la D a la Z
Set d = fs.GetDrive(CStr(Chr(i)) & ":")
Respira 100
If d.drivetype = 1 Then '1 = removable
flag = True
Exit For
End If
Next
esto me agarra la unidad que este conectada, pero en maquinas que tiene particiones me agarra la unidad de la particion cuando la idea es que agarre el disco extraible si algo "d" la declaro asi
Dim d
For i = 68 To 90 'de la D a la Z
Set d = fs.GetDrive(CStr(Chr(i)) & ":")
Respira 100
If d.drivetype = 1 Then '1 = removable
flag = True
Exit For
End If
Next
esto me agarra la unidad que este conectada, pero en maquinas que tiene particiones me agarra la unidad de la particion cuando la idea es que agarre el disco extraible si algo "d" la declaro asi
Dim d
Valora esta pregunta
0