Проверить существует ли диск

MsgBox DriveExists("e") 'Возвращает Да или Ложь

Private Declare Function GetLogicalDrives Lib "kernel32" () As Long

Public Function DriveExists(ByVal sDriveLetter As String) As Boolean
Dim dwDrives As Long
Dim Mask As Long

dwDrives = GetLogicalDrives()
Mask = 2 ^ (Asc(UCase$(sDriveLetter)) - 65)

DriveExists = ((dwDrives And Mask) = Mask)
End Function

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Проверить существует ли диск", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!