Public Function DriveSerialNumber(Drive As String) As String
Dim FSO As New Scripting.FileSystemObject
Dim dr As Scripting.Drive
Set dr = FSO.GetDrive(Drive)
DriveSerialNumber = Hex$(dr.SerialNumber)
End Function
Form_Load
msgbox DriveSerialNumber("a:")
End Sub
Сейчас этот форум просматривают: AhrefsBot и гости: 16