hdd nosu bulmak

[djmuratcan]

access formunda hdd nosunu nasıl bulabiliriz
teşekür ederim

 

[excile]

Selam

Aşağıdaki kodu bir module ekleyin.

Function sGetVolumeSerialNumber()
'Must set a reference to the 'Microsoft Scripting Runtime'
 
    Dim fs As New FileSystemObject
    Dim x As Drive
    Dim sPath As String
    
    sPath = Environ("SystemDrive")
    Set x = fs.GetDrive(sPath)
    sGetVolumeSerialNumber = x.SerialNumber
 
    MsgBox Hex(sGetVolumeSerialNumber) 'Hex number
    MsgBox (sGetVolumeSerialNumber)
 
End Function

Referanslardan 'Microsoft Scripting Runtime'. ekleyin.
Bir forma textbox ekleyip denetim kaynağına

=sGetVolumeSerialNumber()

yazın.