FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9268
Вход
Как можно проверить, есть ли дискета в флоппике

Как можно проверить, есть ли дискета в флоппике без перехвата ошибок и их вывода ;)


 
Прислал: A.Пинигин   Категория: Разное


Как можно проверить, есть ли дискета в флоппике

Все намного проще, чем ты думаешь..
if diskspace('a:')=-1
=messagebox('Всавьте дискету в дисковод A:')
endif

Если сомневаешься, что флоппи навешанно именно на A: можно применить апишную GetDriveType, (GetDriveType) которая должна вернуть 2 внезависимости если ли дискета в дисководе или нет.
В FPD2.6 не работает

A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок. г. Рига E-mail: apinigin@olainfarm.lv
 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (4.886)
Дополнения пользователей
Как можно проверить, есть ли дискета в флоппике
[+][?]
Харламенков Алексей
13.06.02 03:35:41

У меня сработало только со следующими исправлениями:

if diskspace([a:],1) > 1
	=messagebox('хорошо')
else 
	=messagebox('Всавьте дискету в дисковод A:')
endif 

А так - большое спасибо - очень нужная функция, давно искал.
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика