Não entendi muito bem.. mas olhe,
Embaixo está um exemplo de como usar a Função:
Private Declare Function GetVolumeInformation Lib "kernel32.dll" _ 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
Function NoSerieDisque(strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Trucnull As Long
Dim Strnul As String
Res = GetVolumeInformation(strDrive, Strnul, _
Trucnull, SerialNum, Trucnull, Trucnull, Strnul, Trucnull)
Me.Caption = strDrive
NoSerieDisque = SerialNum
End Function
'**********************
Private Sub Command1_Click()
End
End Sub
'**********************
Private Sub Form_Load()
Label1.Caption = "Nº de Série do Disco Rígido"
Text1.Text = NoSerieDisque("C:")
End Sub
Obs: O código-fonte acima faz com que te traga o nº de Serie de um Disco Rígido ou Unidade Removivel usando a API GetVolumeInformation
Veja se o código acima é útil para você.
T+
