Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Вниз

помогите узнать размер папки! 


sammy   (2002-02-08 08:24) [0]

пытаюсь узнать размер папки "D:\WINDOWS\Desktop\aa"
следующим кодом
но он выдает гигабайты
а размер папки - 7 мега
когда в myfile я указываю конкретный файл в аа
то все нормально работает.
Хелп плиз!

procedure TForm1.Button1Click(Sender: TObject);
var cb:dword;
myfile:array [0..255] of char;
handle1:hfile;
g:OfStruct;
infor: By_Handle_File_Information;
begin
myfile:="D:\WINDOWS\Desktop\aa";
handle1:=openfile(myfile,g,OF_READ);
cb := GetFileSize(handle1, nil);
GetFileInformationByHandle(handle1,infor);

m.Lines.Add("getfilesize - "+inttostr(cb)+" bytes");
m.Lines.Add("getfileinfo - "+inttostr(infor.nFileSizeHigh) +" bytes");
m.Lines.Add("getfileinfo - "+inttostr(infor.nFileSizeLow ) +" bytes");

end;



Polevi   (2002-02-08 09:41) [1]

Папка не хранит в себе информации о размере файлов в ней.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.022 c
1-79314           IronHawk              2002-02-06 18:14  2002.02.25  
Данные из QuickReport.Preview сохранять в *.dbf или *.db файл !!!


4-79516           Алекс1                2001-12-18 10:16  2002.02.25  
Удалить директорию в NT и перезагрузка в NT


1-79355           Lena                  2002-02-08 09:31  2002.02.25  
Символы в TCaption


1-79322           Mistery               2002-02-07 18:15  2002.02.25  
П - а - м - а - г - а - и - г - и - т - е .


14-79459          evgeg                 2002-01-08 00:19  2002.02.25  
перед Паскалем склоняю голову (с) Страуструп