каталоги и файлы

[Sliva]

Заранее извиняюсь за не очень умный вопрос Объясните, пожалуйста, что мы понимаем под каталогом?

 

[Alex Death]

Файл в котором список файлов

 

[Sliva]

А что имеется ввиду под вложенными файлами? И вообще где можно почитать про файлы и каталоги, работу с ними. Скиньте, плиз, ссылку!

 

[Alex Death]

Простите, может я не догоняю.. что за вложенные файлы? Первый раз слышу.

 

[Shader88]

А что имеется ввиду под вложенными файлами? И вообще где можно почитать про файлы и каталоги, работу с ними. Скиньте, плиз, ссылку!

Конкретнее можно сказать что нужно????
С файлами и папками можно работать средствами Delphi(что не советую) а можно через API в Delphi!

 

[Sliva]

Мне нужно работать с вкладкой Win32, как я поняла со стандартными функциями типа IsDirNotation, GetDirectoryName...
Вообще задача стоит так:
Есть два каталога. Посчитать общий объем, содержащихся в них файлов.

 

[Shader88]

Мне нужно работать с вкладкой Win32, как я поняла со стандартными функциями типа IsDirNotation, GetDirectoryName...
Вообще задача стоит так:
Есть два каталога. Посчитать общий объем, содержащихся в них файлов. :huh:

Как вкладка Win32 соотноситься с файлами и каталогами, я слабо себе представляю.....

А так код который определяет размер ВСЕГО каталога:

var 
DirBytes: Integer;

procedure DirSize(Dir:string);
var
SearchRec : TSearchRec;
Separator : string;
begin

if Copy(Dir,Length(Dir),1)='\' 
then Separator := ''
else Separator := '\';

if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 
then begin
if FileExists(Dir+Separator+SearchRec.Name) 
then DirBytes := DirBytes + SearchRec.Size
else if DirectoryExists(Dir+Separator+SearchRec.Name) 
then if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') 
then DirSize(Dir+Separator+SearchRec.Name);
while FindNext(SearchRec) = 0 do 
begin
if FileExists(Dir+Separator+SearchRec.Name) 
then DirBytes := DirBytes + SearchRec.Size
else if DirectoryExists(Dir+Separator+SearchRec.Name) 
then if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') 
then DirSize(Dir+Separator+SearchRec.Name);
end;
end;
FindClose(SearchRec);
end;

Для того чтобы определить размер ТОЛЬКО файлов в каталоге

var
DirBytes: Integer;

procedure DirSize(Dir:string);
var
SearchRec : TSearchRec;
Separator : string;
begin

if Copy(Dir,Length(Dir),1)='\' 
then Separator := ''
else Separator := '\';

if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 
then begin
if FileExists(Dir+Separator+SearchRec.Name) 
then DirBytes := DirBytes + SearchRec.Size;

while FindNext(SearchRec) = 0 do 
if FileExists(Dir+Separator+SearchRec.Name) 
then DirBytes := DirBytes + SearchRec.Size;
end;
FindClose(SearchRec);
end;

Возвращаемый результат выполнения в БАЙТАХ. Прошу обратить внимание.

Но сразу хочу оговориться, код совсем не оптимизирован!!!!!
Поэтому если критично выполнение по времени, то нужно улучшать!

 

[Sliva]

Спасибо, попробую

 

[mike.dld]

Ай-ай-ай, Shader88... Кто использует для такого случая процедуры и глобальные переменные? В функцию бы это нужно!

Что касается оптимизации:

function DirSize(Dir:string): integer;
var
SearchRec : TSearchRec;
begin
if not (Dir[Length(Dir)] in ['\','/'])
Dir := Dir + '\';
Result := 0;

if FindFirst(Dir+'*.*',faAnyFile,SearchRec) = 0
then begin
repeat
if SearchRec.Attr and faDirectory <> 0
then inc(Result,DirSize(Dir+SearchRec.Name))
else if SearchRec.Attr and faVolumeID = 0
then inc(Result,SearchRec.Size)
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

 

[Sliva]

Спасибо, помогаете!

 

[Shader88]

Ай-ай-ай, Shader88... Кто использует для такого случая процедуры и глобальные переменные? В функцию бы это нужно!

МОЛОДЦА!!!!

Я просто думал что этот пост больше не кто не читает! Вот и решил проверить!

Конечно, же как функцию....
Даже я больше могу сказать, как мне это кажеться, что девушка занимаеться написанием программы аля WinCommander, просто молчит!

Еще раз пасибо!

 

[Sliva]

Ну спасибо! Это задача на операционные системы. И вот этот цикл:
repeat
if SearchRec.Attr and faDirectory <> 0
then inc(Result,DirSize(Dir+SearchRec.Name))
else if SearchRec.Attr and faVolumeID = 0
then inc(Result,SearchRec.Size)
until FindNext(SearchRec) <> 0;
Он не считает размер вложенных файлов. Видеть их видит, но не считает.

 

[Sliva]

Я так понимаю, что это -

if FileExists(Dir+Separator+SearchRec.Name) 
then DirBytes := DirBytes + SearchRec.Size
else if DirectoryExists(Dir+Separator+SearchRec.Name) 
then if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') 
then DirSize(Dir+Separator+SearchRec.Name);
while FindNext(SearchRec) = 0 do 
begin
if FileExists(Dir+Separator+SearchRec.Name) 
then DirBytes := DirBytes + SearchRec.Size
else if DirectoryExists(Dir+Separator+SearchRec.Name) 
then if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') 
then DirSize(Dir+Separator+SearchRec.Name);

просто считает размер файлов, которые имеют 1-2 вложенных и их глубина = 1.

 

[mike.dld]

Моя вина - не проверил код перед тем как сюда написать. Исправление:

function DirSize(Dir: string): integer;
var
SearchRec : TSearchRec;
begin
if not (Dir[Length(Dir)] in ['\','/']) then
Dir := Dir + '\';
Result := 0;
if FindFirst(Dir+'*.*',faAnyFile,SearchRec) = 0
then begin
repeat
if (SearchRec.Attr and faDirectory <> 0) and (SearchRec.Name <> '.')
and (SearchRec.Name <> '..')
then inc(Result,DirSize(Dir+SearchRec.Name))
else if SearchRec.Attr and faVolumeID = 0
then inc(Result,SearchRec.Size)
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

 

[Barmutik]

Такой способ определения размера дирректории будет работать очень долго .. эт его большой минус ...

 

[Sliva]

Я вам очень благодарна! А не подскажите еще как сделать тоже самое, но считая, что два файла, которые даны - это потоки?
Понимаете, первый курс... :blink:

 

[Sliva]

Даже не так сформулировала Два каталога - это потоки. Help, please!

 

[Barmutik]

От переформулирования понятней не стало ....

 

[Shader88]

От переформулирования понятней не стало ....

Согласен!

 

[Sliva]

Тем не менее, задача стоит так. Два каталога - это два потока и с ними надо работать.