Веб программирование

Проверка доступности диска минуя сообщение

 
 

Итак, начнем.

'--------------------------------------------------------------------
'код vbs, показывает корректную работу с дисками;
'--------------------------------------------------------------------
on error resume next 'отключаем обработку ошибок
set fso=createobject("Scripting.Filesystemobject")
set a=fso.drives
text=""
count=0
    for each b in a
         if b.isready then
             if b.drivetype=1 or b.drivetype=2 then ' and lcase(b.path) <> "a:"
                count=count+1
                 text=text+b.path + space(1)
             end if
         end if
     next
msgbox "найдено " & count & " дисков! " & text

В Visual Basic использовать вышеуказанный объект непрофессионально.

Нужно вызвать API GetLogicalDrives/GetLogicalDriveString/DeviceIOcontrol/GetDriveType/GetVolumeInformation

               


Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.