SizeEx: Variant;
SizeEx: object;
Свойство SizeEx возвращает размер файла в байтах.
Какие-либо ограничения на размер файла не накладываются.
Для выполнения примера в файловой системе предполагается наличие файла «C:\Application.log». Добавьте ссылку на системную сборку «IO».
Sub UserProc;
Var
FileInf: IFileInfo;
Begin
FileInf := New FileInfo.Attach("C:\Application.log");
If FileInf.Exists Then
Debug.WriteLine(FileInf.SizeEx);
End If;
Dispose FileInf;
End Sub UserProc;
После выполнения примера в окно консоли будет выведен размер файла «C:\Application.log».
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.ForeIO;
…
Public Shared Sub UserProc();
Var
FileInf: IFileInfo;
Begin
FileInf := New FileInfoClass.Create();
FileInf.Attach("C:\Application.log");
If FileInf.Exists Then
System.Diagnostics.Debug.WriteLine(FileInf.SizeEx);
End If;
End Sub UserProc;
См. также: