|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Количество файлов на диске
Вопрос в следующем:
Как узнать количество всех файлов на диске С например и занести эту цифру в Label1? Работу с файлами только изучаю, так что буду благодарен если поподробнее обьясните как делается... Заранее спасибо. |
#2
|
||||
|
||||
Все довольно просто... описывать код не буду, но думаю и сами разберетесь - http://www.delphisources.ru/pages/fa...es_search.html
Ищите все файлы (маска - *.*) на нужном диске, заносите их в ListBox, и ListBox.Count - и будет кол-во файлов на диске... Помогаю за Спасибо |
#3
|
|||
|
|||
Зачем куда-то что-то заносить, если задача стит только в посчитать?
Код:
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; |
#4
|
||||
|
||||
Код:
faAnyFiley Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#5
|
|||
|
|||
Ну бывает. Писал-то сразу здесь.
Исправил... |
#6
|
|||
|
|||
Большое спасибо. Разобрался со статейкой и c помощью ListBox1.Count пощитал. Только вот с кодиком lmikle не могу понять... Разшифруй плиз. Было бы неплохо без ListBox count, хотя и не принцыпиально. Просто интересно как это делается. Еще раз огромное спасибо.Что искал, то нашел)
|