Вам понравился наш сайт? Хотите сказать спасибо? Посмотрите объявления, может быть Вас что-нибудь заинтересует:
Как получить имена всех дисков
Библиотека кодов Visual Basic 6 Файловая система Как получить имена всех дисков
Visual Basic 6
| Как получить имена всех дисков |
|
Функция возвращает имена всех логических дисков. Добавьте на форму элемент Button. Public Function ListAllDrives() As String() Dim arDrives() As String arDrives = Directory.GetLogicalDrives() Return arDrives End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sDrive As String, sDrives() As String sDrives = ListAllDrives() For Each sDrive In sDrives Debug.WriteLine(sDrive) Next End Sub
Источник: http://www.vbnet.ru/ |
VBCoding Библиотека кодов Visual Basic 6 Файловая система Как получить имена всех дисков
Библиотека кодов Visual Basic 6 Файловая система Как получить имена всех дисков