Как считать серийный номер флопи дискеты?

[BorisSS]

Други, подскажите плз.

[kif]

В модуль вставь:

Код: Выделить всё

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

[kif]

Забыл, это номер присвоенный при форматировании (кажется другого вообще нет)

[BorisSS]

Спасибо!