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