VBCoding Библиотека кодов Visual Basic .NET Файловая система Как получить имена всех дисков

Visual Basic .NET
Как получить имена всех дисков

Функция возвращает имена всех логических дисков. Добавьте на форму элемент 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 .NET Файловая система Как получить имена всех дисков  
Powered by Exponenta -