1С 8.3 Получить место на диске - Программист 1С Минск. Автоматизация бизнеса.

Популярные страницы:
Перейти к контенту

1С 8.3 Получить место на диске

Данные > Примеры кода 1С > 1С 8.3 Файлы, каталоги
Перейти в раздел примеры кода 1С 8.3:
Узнать место на диске в 1С 8.3:
Функция ПолучитьМестоНаДиске(Диск) Экспорт // Диск - строка - "d:\"

   СистемнаяИнфо = Новый СистемнаяИнформация;
   ТипПлатформы = СистемнаяИнфо.ТипПлатформы;

   Если ТипПлатформы = ТипПлатформы.Windows_x86
       Или ТипПлатформы = ТипПлатформы.Windows_x86_64 Тогда

       СкриптФСО  = Новый COMОбъект("Scripting.FileSystemObject");
       МестоНаДиске = Окр(Число(СкриптФСО.getDrive(СкриптФСО.GetDriveName(Диск)).freeSpace())/1024/1024, 2);

       Возврат МестоНаДиске;

   Иначе

       //Сообщить("Данная функция поддерживается только в ОС Windows");
       Возврат  Неопределено;

   КонецЕсли;

КонецФункции
Поиск кода
0
Комментарии
____________________
Copyright©, «Программист 1С в г.Минске», 27.11.2021
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник
Назад к содержимому