[Resolvido] Como retorno o registro do HD?

[Erich VB 0]

Como eu posso retorno em um text o registro do HD?

Obrigado

[Erich VB 0]

Tipo assim número de série do volume.

O meu é 3035-760D.

[scorpio 7]

Veja se esta API te server: GetVolumeInformation.

Procure no google.

[Erich VB 0]

Obrigado pela dica scorpio. Encontrei.

:)

 

‘ General

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

 

 

Public Function DriveSerialNumber(Optional strDrive As String = "c:\") As String

Dim X As Long

Dim lngSerialNum As Long

Dim strRoot As String

 

If Trim(strDrive) = "" Then Exit Function

X = GetVolumeInformation(Left(strDrive, 1) & ":\", vbNullString, 0, lngSerialNum, 0, 0, vbNullString, 0)

DriveSerialNumber = Hex(lngSerialNum)

End Function

 

 

Private Sub Command2_Click()

Text8.Text = DriveSerialNumber("C:\")

 

End Sub