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

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 + ":");
    КонецЦикла;


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