VBCoding Библиотека кодов 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 Файловая система Как получить имена всех дисков  
Powered by Exponenta -