C Sürücüsünün seri numarasını bulma

[kimyacı1964]

C Sürücüsünün seri numarasını kodla buldurup forma metin kutusuna yazdırabilirmiyiz

 

[turist]

Deneyin.

Sub SeriNo()
    Dim sistem As Object
    Dim sürücü As Object
    Set sistem = CreateObject("Scripting.FileSystemObject")
    Set sürücü = sistem.GetDrive("C:\")
    UserForm1.Show
    UserForm1.TextBox1 =Hex(sürücü.SerialNumber)
     
    Set sistem = Nothing
    Set sürücü = Nothing
        
End Sub