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
'Br as string-Ime diska kao <<"C:\">>
Function BrojP(Br As String) As String
Dim Root As String
Dim Vol_N As String
Dim Ser_Br As Long
Dim Flag As Long
Dim Sys_Ime As String
Dim Pos As Integer
Dim Max_duz
Root = Br
Vol_N = Space$(1024)
Sys_Ime = Space$(1024)
If GetVolumeInformation(Root, Vol_N, _
Len(Vol_N), Ser_Br, _
Max_duz, Flag, _
Sys_Ime, Len(Sys_Ime)) = 0 _
Then
MsgBox "Greška pri definisanju broja"
Exit Function
End If
Pos = InStr(Vol_N, Chr$(0))
Vol_N = Left$(Vol_N, Pos - 1)
BrojP = Ser_Br
End Function
Ovo mora da radi i sa vise diskova
zxz