Перебор файлов

← →
Vadik (2005-07-13 17:41) [0]

Привет мастера! Кто-нибудь может привести процедуру перебора имен всех файлов, находящихся в некотором каталоге. Спасибо за поддержку!

← →
evvcom © (2005-07-13 17:42) [1]

FindFirst, FindNext

← →
begin...end © (2005-07-13 17:44) [2]

> Vadik (13.07.05 17:41)

1. Нужно ли учитывать файлы в подкаталогах?
2. Это нужно только для вывода списка файлов на экран?

← →
Vadik (2005-07-13 17:47) [3]

begin...end ©
В подкаталогах НЕ надо учитывать
это нужно чтобы я потом открывал эти файлы и парсил их

← →
Igor_thief (2005-07-13 17:51) [4]

Зайди в раздел факю на любом сайте по программированию.

← →
Vadik (2005-07-13 18:00) [5]

> Igor_thief (13.07.05 17:51) [4]
Ti chto otvetit prosto ne mozesh, togda ne umnichay

200 Euro

> Vadik (13.07.05 17:47) [3]

procedure GetFilesList(Dir: string; List: TStrings); var H: Cardinal; D: TWin32FindData; begin Dir := IncludeTrailingPathDelimiter(Dir); H := FindFirstFile(PChar(Dir + "*.*"), D); if H <> INVALID_HANDLE_VALUE then try repeat if D.dwFileAttributes and faDirectory = 0 then List.Add(Dir + D.cFileName) until not FindNextFile(H, D) finally Windows.FindClose(H) end end.

Использование:

var L: TStringList; begin L := TStringList.Create; try GetFilesList("C:\Windows", L); ... // Используем список L finally L.Free end end.

Перебор файлов Найти похожие ветки