Функция GetDrives

GetDrives

Получить список существующих дисков

GetDrives(List Drive.s())

Параметры

Drive.s()

Пустой список для последующего заполненния существующими дисками

Возвращаемое значение

Успех:

Возвращает список с буквами дисков, например: C, D, E, F и т.д.

Пример

EnableExplicit

; Получить буквы дисков
Procedure GetDrives(List Drive.s())
    Protected i, drives_avail
    drives_avail = GetLogicalDrives_()

    For i = 0 To 25
        If drives_avail >> i & 1
            If AddElement(Drive())
                Drive() = Chr(i + 65)
            EndIf
        EndIf
    Next
EndProcedure

Global NewList Drive.s()
GetDrives(Drive())

ForEach Drive()
    Debug Drive()
Next