Как получить список корневых каталогов в 1с

1С v8

☑

0 sqr4

23.09.13

✎

11:32

т.е список дисков C,D,F

1 Fragster

модератор

23.09.13

✎

11:34

(0) какой список должен быть на линух-сервере?

2 sqr4

23.09.13

✎

11:34

для виндовс, линукс не надо рассматривать

3 shuhard

23.09.13

✎

11:34

(0) дёрнуть через ком-объект микрософтовское API

4 Fragster

модератор

23.09.13

✎

11:35

(2) а для вебклиента на айпадике?

5 sqr4

23.09.13

✎

11:36

Для Виндовс!

6 Fish

гуру

23.09.13

✎

11:37

(0) А зачем это надо?

7 sqr4

23.09.13

✎

11:37

Спортивный интерес

8 Андрюха

23.09.13

✎

11:38

(0) Через WMI пойдет?

9 sqr4

23.09.13

✎

11:41

Если еще ссылочкой поделитесь как со всем этим работать буду благодарен

10 Андрюха

23.09.13

✎

11:42

http://www.script-coding.com/WMI_FileSystem.html

11 Fragster

модератор

23.09.13

✎

11:42

СтрДисков = "acdefg...";

Для Сч = 1 По СтрДлина(СтрДисков) Цикл
  Попытка
    ПроверяемаяБуква = Сред(СтрДисков, Сч, 1);
//    Пробуем получить содержимое каталога
//    если нет исключения - есть такой диск
  Исключение
  КонецПопытки;
КонецЦикла;

12 Андрюха

23.09.13

✎

11:45

ФСО = Новый COMОбъект("Scripting.FileSystemObject"); 

Диски = ФСО.Drives; 

Для каждого Диск Из Диски Цикл 

     Сообщить(Диск.DriveLetter+":\");

     Сообщить(Диск.DriveType); //2-локальный

КонецЦикла;

13 le_

23.09.13

✎

11:46

Процедура КнопкаВыполнитьНажатие(Кнопка)

    strComputer = ".";

     objWMIService = ПолучитьCOMОбъект("winmgmts:\\" + strComputer + "\root\cimv2");

    colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk");

    Для Каждого objDisk Из colDisks Цикл

        Сообщить("Drive Letter: " + objDisk.DeviceId);

    КонецЦикла;

КонецПроцедуры

14 sqr4

23.09.13

✎

11:47

(12) уже нашел подобный код. Нажав на я в углу
(11) Это наверно у файла проверяется какой диск, наверное не совсем то

15 sqr4

23.09.13

✎

11:47

Всем спасибо, буду дальше разбираться

16 Андрюха

23.09.13

✎

11:48

(15) Погоди, сейчас будут самые интересные предложения )))