[Zork]

Вопрос в следующем:
Как узнать количество всех файлов на диске С например и занести эту цифру в Label1? Работу с файлами только изучаю, так что буду благодарен если поподробнее обьясните как делается...
Заранее спасибо.

[v1s2222]

Все довольно просто... описывать код не буду, но думаю и сами разберетесь - http://www.delphisources.ru/pages/fa...es_search.html
Ищите все файлы (маска - *.*) на нужном диске, заносите их в ListBox, и ListBox.Count - и будет кол-во файлов на диске...

[lmikle]

Зачем куда-то что-то заносить, если задача стит только в посчитать?

Код:

function GetFileCount(APath : String) : Integer;
var
  F : TSearchRec;
   iFound : Integer;
begin
  Result := 0;
  APath := IncludeTrailingPathDelimeter(APath);
  iFound := FindFirst(APath + '*.*',faAnyFile,F);
  While iFound = 0 Do
    Begin
       If (F.Attr And faDirectory) = 0 
         Then Inc(Result) 
         Else
           If (F.Name <> '.') And (F.Name <> '..') 
              Then Result := Result + GetFileCount(APath + F.Name);
       ifound := FindNext(F);
    End;
  FindClose(F);
end;

[Страдалецъ]

Код:

faAnyFiley

По Фрейду можно сказать, что пациент голодный.

[lmikle]

Ну бывает. Писал-то сразу здесь.
Исправил...

[Zork]

Большое спасибо. Разобрался со статейкой и c помощью ListBox1.Count пощитал. Только вот с кодиком lmikle не могу понять... Разшифруй плиз. Было бы неплохо без ListBox count, хотя и не принцыпиально. Просто интересно как это делается. Еще раз огромное спасибо.Что искал, то нашел)