MyTetra Share
Делитесь знаниями!
Работа с дисками в VB .NET
23.03.2018
22:37
Текстовые метки: VB .NET
Раздел: VB

Работа с дисками в VB .NET

Опубликовано Декабрь 31, 2015 автором Памирыч

Получить имена всех дисков в системе


Visual Basic .NET

1

2

3

4

        Dim D() As IO.DriveInfo = IO.DriveInfo.GetDrives

        For Each DI As IO.DriveInfo In D

            MsgBox(DI.Name)

        Next

Если нужно получить не все диски, а лишь определенного типа, то нужно добавить условие.
Например, в следующем примере мы получаем имена только жестких дисков:


Visual Basic .NET

1

2

3

4

5

6

        Dim D() As IO.DriveInfo = IO.DriveInfo.GetDrives

        For Each DI As IO.DriveInfo In D

            If DI.DriveType = IO.DriveType.Fixed Then

                MsgBox(DI.Name)

            End If

        Next

Узнать объем свободного места на диске в мегабайтах


Visual Basic .NET

1

2

        Dim DI As New IO.DriveInfo("C:\")

        MsgBox(DI.TotalFreeSpace / 1024 \ 1024)

Узнать имя файловой системы на диске


Visual Basic .NET

1

2

        Dim DI As New IO.DriveInfo("C:\")

        MsgBox(DI.DriveFormat)

Узнать тип диска


Visual Basic .NET

1

2

        Dim DI As New IO.DriveInfo("C:\")

        MsgBox(DI.DriveType)


0

Неизвестный тип диска

1

Диск, не содержащий корневого каталога

2

Съемный диск, куда входит и диск 3,5А

3

Жесткий диск

4

Сетевой диск

5

Cd/DVD — оптичнский диск

6

Диск ОЗУ

 Узнать, доступен ли диск


Visual Basic .NET

1

2

        Dim DI As New IO.DriveInfo("C:\")

        MsgBox(DI.IsReady)

Получить имя диска


Visual Basic .NET

1

2

        Dim DI As New IO.DriveInfo("C:\")

        MsgBox(DI.Name)

Естественно, в данном случае это не имеет смысла, но это необходимо когда работа идет не с одним диском, а с несколькими, например, перебор в цикле, как в первом примере

Узнать полный объем диска


Visual Basic .NET

1

2

        Dim DI As New IO.DriveInfo("C:\")

        MsgBox(DI.TotalSize / 1024 \ 1024)

Объем занятого пространства диска подобным образом узнать нельзя, поэтому получаем его, вычитая свободное место из общего пространства:


Visual Basic .NET

1

2

        Dim DI As New IO.DriveInfo("C:\")

        MsgBox((DI.TotalSize - DI.AvailableFreeSpace) / 1024 \ 1024)

Узнать или назначить метку тома


Visual Basic .NET

1

2

        Dim DI As New IO.DriveInfo("D:\")

        MsgBox((DI.VolumeLabel))

Назначение:


Visual Basic .NET

1

        DI.VolumeLabel = "Проекты"

 

 

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования