Прочитать содержимое папки
Прочитать содержимое папки
Прочитать содержимое папки procedure LookDir(StartDir, Mask : String; List : TStringList); var SearchRec : TSearchRec; begin if Mask = '' then Mask := '*.*'; if StartDir[Length(StartDir)] <> '' then StartDir := StartDir + ''; if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then begin repeat if (SearchRec.Attr and faDirectory) <> faDirectory then begin List.Add(StartDir+SearchRec.Name); end else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then LookDir(StartDir + SearchRec.Name + '', Mask, List); until FindNext(SearchRec) <> 0; FindClose(SearchRec); end; end; Используется так: var lst : TStringList; begin lst := TStringList.Create; LookDir('C:Мои документы', '*.*', lst); lst.SaveToFile('C:List.txt'); lst.Free; end;
