Imprimir Página - Ver Sistema!!!

Quisiera saber como leer todos los discos del sistema...
Leerlos y ponerlos en un Label...
algo asi como los antivirus que muestran todos los archivos que estan analizando...

Lo podes hacer con APIs (algo mas o menos asi):

Código:

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

Private Sub Command1_Click()
    Dim Tipo As Byte
    For i = Asc("A") To Asc("Z")
        Tipo = GetDriveType(Chr(i) & ":")
        If Tipo <> 1 Then
            List1.AddItem Chr(i) & ":"
        End If
    Next i
End Sub

La otra opcion es agregar el control DriveListBox que viene por defecto en la barra de tareas. La segunda opcion es la mas sencilla, pero puede que necesites saber que tipo de disco es, por lo que tendrias que usar la API...

Y molestate en buscar, porque esto de hacer preguntas que vienen en los manuales mas basicos no va...

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: zerofive en 9 Julio 2006, 00:36 am