Вход | Регистрация

1С:Предприятие ::

Метки:

Вывод списка дисков

Я
   sheale
 
19.11.04 - 11:34
Как программно узнать какие диски (с их описанием) есть на компьютере?
 
 
   vi0
 
1 - 19.11.04 - 11:39
Windows Scripting Host, FileSystemObject
...свойство Drives возвращает список дисков, доступных на данной машине, включая сетевые.

http://erpg.ru/1c/com/wsh.htm?print
   vi0
 
3 - 19.11.04 - 12:26
ТипДиска = Новый Массив(6);
    ТипДиска[0] = "неопределен";
    ТипДиска[1] = "дисковод";
    ТипДиска[2] = "жесткий";
    ТипДиска[3] = "сетевой";
    ТипДиска[4] = "CD-ROM";
    ТипДиска[5] = "RAM";
    
    FileSystemObject = Новый COMОбъект("Scripting.FileSystemObject");
    Диски = FileSystemObject.Drives;
    Для каждого Диск Из Диски Цикл
        Сообщить(ТипДиска[Диск.DriveType] +" "+ Диск.DriveLetter + ":");
    КонецЦикла;


Список тем форума
Рекламное место пустует  
2 + 2 = 3.9999999999999999999999999999999...
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Ветка сдана в архив. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует