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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
BorisSS
Новичок
Новичок
 
Сообщения: 44
Зарегистрирован: 12.10.2003 (Вс) 10:18

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

Сообщение BorisSS » 24.03.2004 (Ср) 10:30

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

kif
Постоялец
Постоялец
 
Сообщения: 736
Зарегистрирован: 10.12.2001 (Пн) 18:06
Откуда: Украина, Одесса

Сообщение kif » 24.03.2004 (Ср) 15:32

В модуль вставь:
Код: Выделить всё
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
Постоялец
Постоялец
 
Сообщения: 736
Зарегистрирован: 10.12.2001 (Пн) 18:06
Откуда: Украина, Одесса

Сообщение kif » 24.03.2004 (Ср) 15:33

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

BorisSS
Новичок
Новичок
 
Сообщения: 44
Зарегистрирован: 12.10.2003 (Вс) 10:18

Сообщение BorisSS » 24.03.2004 (Ср) 16:47

Спасибо!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 16

    TopList  
cron