Программирование на 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, Google-бот и гости: 10