Существует ли диск?
Эта функция из модуля FSO Examples (его вы можете скачать в разделе «Исходники») поможет вам узнать, существует ли диск под заданной буквой.
Function DriveExists(Letter$)
Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
DriveExists = FSO.DriveExists(Letter)
End Function
Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
DriveExists = FSO.DriveExists(Letter)
End Function
Вот как ей пользоваться:
MsgBox DriveExists("d")
Оригинальная статья Влада Рубцова. https://vladikcomper.scanf.su/