maison

Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];
vers le bas

Comment? Trouver des branches similaires


Xtorm   (2001-12-19 10:40) 0

Как получить весь список файлов и папок допустим на диске с:\
только без помощи компонентов???



Bizon (2001-12-19 10:46) 1

Воспользуйся ф-ями FindFirst & FindNext



Dimka Maslov (2001-12-19 10:52) 2

procedure FindFiles(Path, Mask: string; List: TStrings; IncludeSubDir: Boolean = True);
var
SearchRec: TSearchRec;
FindResult: Integer;
begin
List.BeginUpdate;
try
Path:=IncludeTrailingBackSlash(Path);
FindResult:=FindFirst(Path+"*.*", faAnyFile, SearchRec);
try
while FindResult = 0 do with SearchRec do begin
if (Attr and faDirectory<>0) then begin
if IncludeSubDir and (Name<>"..") and (Name<>".")
then FindFiles(Path+Name, Mask, List, IncludeSubDir);
end else begin
if MatchesMask(Name, Mask) then List.Add(Path+Name);
end;
FindResult:=FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
finally
List.EndUpdate;
end;
end;



cpp (2001-12-19 10:53) 3

Вот и моих исходников можешь подстроить под себя

procedure ReadAllFiles(DirFrom : string);
var SearchRecOtkuda : TSearchRec;



procedure ReadFile(FileName : string);
commencer
// что хочем то и делаем с файлом
fin;

procedure ReadDir(DirName : string);
commencer
// что хочем то и делаем с директорием
if (DirName <> ".") and (DirName <> "..") then
commencer
ReadAllFiles(DirFrom+"\"+DirName);
fin;
fin;

commencer
if FindFirst(DirFrom+"\*.*",faAnyFile,SearchRecOtkuda) = 0 then
commencer
if (faDirectory and SearchRecOtkuda.Attr) > 0 then
ReadDir(SearchRecOtkuda.Name)
d'autre
ReadFile(SearchRecOtkuda.Name);
while FindNext(SearchRecOtkuda) = 0 do
commencer
if (faDirectory and SearchRecOtkuda.Attr) > 0 then
ReadDir(SearchRecOtkuda.Name)
d'autre
ReadFile(SearchRecOtkuda.Name);
fin;
fin;
fin;



Xtorm   (2001-12-19 11:39) 4

СПАСИБО Всем все теперь работает!!!!





Pages: 1 branche entière

Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

à l'étage

Top.Mail.Ru Yandeks.Metrika













Mémoire: 0.8 MB
Heure: 0.027 c
7-22447
Anonyme
2001-08-26 03:43
2002.01.08
Обновление иконок


1-22228
nazgul
2001-12-15 14:28
2002.01.08
Comment faire?


3-21907
RDA
2001-12-01 12:48
2002.01.08
Delphi и MySql


6-22284
Délire
2001-10-08 16:29
2002.01.08
Как послать сообщение сразу на все IP-адреса


6-22267
wHammer
2001-09-28 15:00
2002.01.08
Было-бы очень удобно...





afrikaans albanais Arabic arménien azerbaïdjanais basque Biélorusse Bulgare catalan Chinois simplifié) Chinois (traditionnel) croate Tchèque Danois Néerlandais English estonien Filipino Finlandais Français
galicien géorgien Allemand Grecque Créole haïtien hébreu Hindi Hongrois Islandais Indonesian irlandais Italien Japonais Coréen letton lituanien macédonien Malay maltais Norvégien
persan Polonais Portugais roumain Russe serbe Slovaque Slovène Espagnol Swahili Suédois Thai turc ukrainien Urdu vietnamien gallois yiddish bengali bosniaque
Cebuano espéranto gujarati Hause hmong Igbo Javanais Kannada Khmer lao latin maori Marathi mongol népalais punjabi somali tamil telugu yoruba
zoulou
Английский Français Allemand Italien Португальский Русский Espagnol