Как проверить доступность диска

[ger_kar]

Каким образом можно проверить доступность диска, т.е. вставлен диск (флеш карта) или нет.
Если проверять такими средствами как Dir$, FindFirstFile, IsFolder и т.п., то при отсутствии диска генерируется исключение.

Исключение.jpg (13.88 Кб) Просмотров: 3523

[Kroos]

GetLogicalDriveStrings

Например:

Код: Выделить всё

#COMPILE EXE
#DIM ALL

DECLARE FUNCTION GetLogicalDriveStrings LIB "kernel32" ALIAS _
"GetLogicalDriveStringsA" (BYVAL nBufferLength AS LONG, _
BYVAL lpBuffer AS ASCIIZ PTR) AS LONG

FUNCTION IsDriveExists(BYVAL sDrive AS STRING) AS BYTE

IF LEN(sDrive) = 0 THEN EXIT FUNCTION
DIM DrvList(1024) AS BYTE
LOCAL DrvPtr AS ASCIIZ PTR
LOCAL Drv AS STRING
DrvPtr = VARPTR(DrvList(0))
GetLogicalDriveStrings(1024, BYVAL DrvPtr)
    DO
        Drv = @DrvPtr
            IF INSTR(1, Drv, LEFT$(sDrive, 1)) > 0 THEN
                FUNCTION = 1 : EXIT FUNCTION
            END IF
        DrvPtr = DrvPtr + LEN(Drv) + 1
    LOOP UNTIL LEN(Drv) = 0
FUNCTION = 0

END FUNCTION

FUNCTION PBMAIN () AS LONG
?STR$(IsDriveExists("C"))
?STR$(IsDriveExists("D:\..."))
END FUNCTION 

более интересный вариант - _http://www.powerbasic.com/support/pbforums/showthread.php?t=47055

[Sam777e]

Прошу прощения - никогда не имел дела с Power Basic

Но ..

В VB просто написал бы

Код: Выделить всё

On Error Resume Next
' Обращаемся к устройству
' Если ЕСТЬ ошибка, то изучаем / обрабатываем ее [ номер, описание ... ] и получаем ответ.


Вероятно, и исключения предоставляют возможности / пищу для размышлений; по крайней мере, в других языках дело обстоит именно таким образом.

С уважением

[jangle]

Каким образом можно проверить доступность диска, т.е. вставлен диск (флеш карта) или нет.
Если проверять такими средствами как Dir$, FindFirstFile, IsFolder и т.п., то при отсутствии диска генерируется исключение.

Исключение.jpg

У меня на картридере такая ошибка если даже из проводника обратится к диску в который не вставлена флеш-карта.
Т.е. как бы с точки зрения ОС диск есть, но поскольку карта не вставлена происходит ошибка.
Имхо тут проблема в кривом драйвере картридера, поскольку это окно с ошибкой возникает всегда.

[ger_kar]

У меня на картридере такая ошибка если даже из проводника обратится к диску в который не вставлена флеш-карта

У меня если смотреть в консоли управления дисками хорошо видно, что диск отсутствует, значит система об этом каким-то образом узнает. Не посредством же обработки исключений. Наверное есть что-то поприличнее, вот только что?

Упр. дисками.jpg (15.75 Кб) Просмотров: 3504

У меня при попытке доступа через проводник, появляется вот такой диалог:

Диалог.jpg (10.01 Кб) Просмотров: 3504

[ger_kar]

В VB просто написал бы ... On Error Resume Next

Ну тогда если через обработку ошибок делать, то надо On Error Goto Err_Handler. А с On Error Resume Next Ничего не поймается .

GetLogicalDriveStringsНапример:

Этот код опрашивает доступные устройства, в число которых попадают и устройства с отсутсвующими носителями. Таким образом приведенный пример делает совершенно не то что надо. Код по ссылке тоже не совсем то. Хотя из него я узнал про режимы и функцию SetErrorMode, про которые раньше ничего не ведал. Таким образом окно как подавить я теперь знаю, но все равно хочется чего нибудь по изящней .

[Sam777e]

Sam777e писал(а):В VB просто написал бы ... On Error Resume Next

Ну тогда если через обработку ошибок делать, то надо On Error Goto Err_Handler. А с On Error Resume Next Ничего не поймается .

Неверно.

Читать надо несколько внимательнее /* а также учить матчасть */, так как я уже писал

Код: Выделить всё

' Если ЕСТЬ ошибка, то изучаем / обрабатываем ее [ номер, описание ... ] и получаем ответ.

т.е. следующей строкой должно идти

Код: Выделить всё

If Err then
  '  А вот тут надо пораскинуть умом и ОБРАБОТАТЬ "ошибку"
  '  а, если сказать точнее, информацию любезно предоставленную тебе системой
End If


Пример

Код: Выделить всё

Public Sub TryDrive(S As String)
  Dim V As Variant
 
  On Error Resume Next
    V = Dir(S)
      '  Err.Clear     '  <==
    If Err Then
      MsgBox Err.Description, , Err.Number
    End If
    Err.Clear
  On Error GoTo 0
End Sub


Public Sub Test()
  TryDrive "E:\"
End Sub



При РАСКОММЕНТИРОВАННОЙ [ помеченной ] строке ошибки не будет. А когда этой строки нет [ т.е. она закомментирована - лучше ее вообще убрать, показана только для полноты картины ] то у меня [ , в Excel' e - 2010, WXP, E: соответствует разъему USB, физически флешку не вставлял за отсутствием оной, ] как и положено выскакивает

Конечно, эксперимент не абсолютно чистый - флешки то нет, может именно с флешкой ошибки и не перехватываются - но пара On Error Resume Next + If Err Then это очень простая и широко применяемая технология, можешь сам пробовать. Сравни Try + Catch .

[ger_kar]

Читать надо несколько внимательнее /* а также учить матчасть */, так как я уже писал

Дык матчасть в этом направлении изучена вдоль и поперек, в т.ч. и на уровне машинных кодов Про способ, который описан далее я в принципе теоретически знаю. Теоретически, потому, что на практике, именно в таком виде я его никогда такой способ не использовал. Еще с до VB' шных времен привык к On Error Goto, поэтому если надо обработать ошибку, а не просто ее пропустить всегда делал это в отдельном обработчике, ссылка на метку которого указывалась в On Error Goto. И привык настолько что делается это машинально. Поэтому когда прочитал On Error Resume Next, то это у меня никак не за ассоциировалось с обработкой ошибки , скорее наоборот.

Вобщем долгие поиски таки привели к успеху, ибо проблема все таки оказалась решаемой и без отлавливания ошибки.
Достаточно вызвать
lRes = GetVolumeInformationW(ByCopy swDrive, ByVal %NULL, 0, 0, 0, 0, ByVal %NULL, 0)
В swDrive передаем наименование диска, и после вызова будем иметь в lRes - 1 если диск(карта) вставлена и 0 в противном случае.

И еще убедился в том, что обработчик ошибок у PB весьма корявый. Т.е. способ, который предложил Sam777e и который прекрасно работает в VB, и и просто должен был-бы работать и у PB, в действительности нифига не работает. Если возникшее описанное в этой теме исключение в VB ловится обработчиком на раз, то в PB оно вообще никак не ловится, Err всегда пустой. Даже если принудительно установить через SetErrorMode режим SEM_FAILCRITICALERRORS, то и в этом случае просто подавляется вывод окна, но обработчик PB и в этом случае ничего не ловит. Не ловит и все тут! Хотя должен. Потому что

SEM_FAILCRITICALERRORS
0x0001
Система не отображает критической ошибки обработчика окна сообщения. Вместо этого, система посылает ошибки вызывающему процессу.

Лучшая практика такова, что все приложения вызывают для всего процесса SetErrorMode функцию с параметром SEM_FAILCRITICALERRORS при запуске. Это сделано для предотвращения диалогов ошибки и режима зависания приложения