LISTAR DISPOSITIVOS

DEFAVERO 04/05/2011 08:38:48
#373164
Srs,

Estou tentando necessitando fazer um SW a qual me mostre todos os dispositivos de disco instalados na maquina, inclusive os que não possuem unidade, apenas estão lá conectados...

Alguém sabe como fazer isso?
NIKYTS 04/05/2011 14:29:00
#373203
Não sei se percebi exactamamente o que pretendes...

[ô]Mostra os discos disponiveis na máquina
  Private Declare Function GetLogicalDriveStrings Lib [Ô]kernel32[Ô] Alias [Ô]GetLogicalDriveStringsA[Ô] (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Sub Form_Load()
    Dim X As Long
    Dim Y As Long
    Dim Z As Long
    Dim L As Integer
    Dim BufLen As Long
    Dim BufString As String * 256
    Dim p As String
    
    BufLen = 256
    
    X = GetLogicalDriveStrings(BufLen, BufString)
    
    On Error GoTo Hell
    
    Do
      X = Y + 1
      Z = Z + 1
      Y = InStr(X, BufString, [Ô]\[Ô])
      p = Mid(BufString, Y - 2, 3)
      List1.AddItem p
    Loop Until Y = 0
    
Hell:
     On Error GoTo 0
End Sub
DEFAVERO 04/05/2011 14:33:28
#373204
Cara é quase isso, porém tenho discos que não possuem unidade tipo c:, d: e gostaria que esses discos aparecesse também... pra ser mais especifico gostaria de ver como foce no gerenciador de dispositivos na parte de discos rigidos... muito parecido com aquela aba...
Tópico encerrado , respostas não são mais permitidas
Voltar