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");
Возврат Неопределено;
КонецЕсли;
КонецФункции
СистемнаяИнфо = Новый СистемнаяИнформация;
ТипПлатформы = СистемнаяИнфо.ТипПлатформы;
Если ТипПлатформы = ТипПлатформы.Windows_x86
Или ТипПлатформы = ТипПлатформы.Windows_x86_64 Тогда
СкриптФСО = Новый COMОбъект("Scripting.FileSystemObject");
МестоНаДиске = Окр(Число(СкриптФСО.getDrive(СкриптФСО.GetDriveName(Диск)).freeSpace())/1024/1024, 2);
Возврат МестоНаДиске;
Иначе
//Сообщить("Данная функция поддерживается только в ОС Windows");
Возврат Неопределено;
КонецЕсли;
КонецФункции
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник