1С 8.3 Получить размер каталога
Данные > Примеры кода 1С > 1С 8.3 Файлы, каталоги
Перейти в раздел примеры кода 1С 8.3:
Узнать размер папки в 1С 8.3:
&НаКлиентеНаСервереБезКонтекста
Функция ПолучитьРазмерКаталога(ПутьККаталогу)
СистемнаяИнфо = Новый СистемнаяИнформация;
ТипПлатформы = СистемнаяИнфо.ТипПлатформы;
Если ТипПлатформы = ТипПлатформы.Windows_x86
Или ТипПлатформы = ТипПлатформы.Windows_x86_64 Тогда
СкриптФСО = Новый COMОбъект("Scripting.FileSystemObject");
СвойстваКаталога = СкриптФСО.GetFolder(ПутьККаталогу);
Возврат СвойстваКаталога.Size;
Иначе
//Сообщить("Данная функция поддерживается только в ОС Windows");
Возврат Неопределено;
КонецЕсли;
КонецФункции
Функция ПолучитьРазмерКаталога(ПутьККаталогу)
СистемнаяИнфо = Новый СистемнаяИнформация;
ТипПлатформы = СистемнаяИнфо.ТипПлатформы;
Если ТипПлатформы = ТипПлатформы.Windows_x86
Или ТипПлатформы = ТипПлатформы.Windows_x86_64 Тогда
СкриптФСО = Новый COMОбъект("Scripting.FileSystemObject");
СвойстваКаталога = СкриптФСО.GetFolder(ПутьККаталогу);
Возврат СвойстваКаталога.Size;
Иначе
//Сообщить("Данная функция поддерживается только в ОС Windows");
Возврат Неопределено;
КонецЕсли;
КонецФункции
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник