Averiguar que disco duro es el master

carlos
01 de Abril del 2004
Hola , y gracias por todo.
Sabe alguien como puedo averiguar que disco duro es el master y caul es el Slave usando Visual Basic 6.0??

argato
01 de Abril del 2004
Prueba con esto:

Coloca esta declarión en la sección GENERAL (Declaraciones) del formulario o en un Módulo, la misma te da toda la información del drive:
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Form_Load()
Me.AutoRedraw = True
Select Case GetDriveType("C:")
Case 2
Me.Print "Removable"
Case 3
Me.Print "Drive Fixed"
Case Is = 4
Me.Print "Remote"
Case Is = 5
Me.Print "Cd-Rom"
Case Is = 6
Me.Print "Ram disk"
Case Else
Me.Print "Unrecognized"
End Select
End Sub

'***********************************************************
Esta API te permite conocer todos los drives del PC
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Form_Load()
Dim strSave As String
Me.AutoRedraw = True
strSave = String(255, Chr$(0))
ret& = GetLogicalDriveStrings(255, strSave)
For keer = 1 To 100
If Left$(strSave, InStr(1, strSave, Chr$(0))) = Chr$(0) Then Exit For
Me.Print Left$(strSave, InStr(1, strSave, Chr$(0)) - 1)
strSave = Right$(strSave, Len(strSave) - InStr(1, strSave, Chr$(0)))
Next keer
End Sub