Difference between revisions of "File.GetFileSize"
(Created page with "{{infobox function |name=GetFileSize |object=Файл |caption=Размер файла |type=1 |status=2 |db=1 |exception=Невозможно превратить в ст...") |
m (1 revision imported) |
(No difference)
|
Latest revision as of 07:50, 7 February 2021
GetFileSize (Размер файла) | |||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
Функция возвращает размер указанного файла в байтах. Если файл не существует, функция возвращает 0.
Синтаксис
File.GetFileSize(<Путь и имя файла (STRING)>):<Размер файла в байтах (INT)>
Аргументы
<Путь и имя файла (STRING)>
- Путь и имя файла. Путь может быть как серверным и так и локальным (Имена файлов).
Возвращаемое значение
Возвращается целое число, размер существующего файла в байтах.
Примеры
Файл:=""; If OpenFileDialog(Файл,"Выберите файл с образом удостоверения","Файлы в формате JPG|*.jpg",1,"jpg") Then If File.GetFileAttributes(Файл) And _FILE_ATTRIBUTE_READONLY<>0 Then Box("Файл имеет атрибут только для чтения! Снимите пометку перед использованием!",Q_STOP); Exit; EndIf; аРазм:=File.GetFileSize(Файл); If аРазм/1024>МаксРазмер Then Box("Размер файла удостоверения слишком велик ("+глФРМ(аРазм/1024)+"Кб)! Не разрешается добавлять удостоверения размером более "+ МаксРазмер+"Кб! Измените разрешение при сканировании, либо отредактируйте картинку в граф. редакторе!",Q_STOP); Exit; EndIf; //Проверка на корректный формат аБуф:=Buffer.Create(); аБуф.LoadFromFile(Файл,0,2); if аБуф.GetWord(0)<>55551 Then //$d8ff Box("Поддерживаются только картинки в формате JPG, даже если выбранный файл имеет расширение JPG, внутренний формат его не соответствует этому расширению!",Q_STOP); Exit; EndIf; ... EndIf;