Имя: Пароль:
1C
1С v8
Как получить список корневых каталогов в 1с
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
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) Погоди, сейчас будут самые интересные предложения )))