Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];
abajo

¿Cómo? Encontrar ramas similares


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

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


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

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


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

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;


cpp2001-12-19 10:53) (1)

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

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



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

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

comenzar
if FindFirst(DirFrom+"\*.*",faAnyFile,SearchRecOtkuda) = 0 then
comenzar
if (faDirectory and SearchRecOtkuda.Attr) > 0 then
ReadDir(SearchRecOtkuda.Name)
más
ReadFile(SearchRecOtkuda.Name);
while FindNext(SearchRecOtkuda) = 0 do
comenzar
if (faDirectory and SearchRecOtkuda.Attr) > 0 then
ReadDir(SearchRecOtkuda.Name)
más
ReadFile(SearchRecOtkuda.Name);
fin;
fin;
fin;


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

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




Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba















Memoria: 0.81 MB
Tiempo: 0.918 c
14-22339
Chino como Zo Vut
2001-11-01 10:12
2002.01.08
Programador, ¿cómo te llamas?


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


1-22244
Socol
2001-12-15 15:42
2002.01.08
Descargar archivo!


1-22223
ANDREY196
2001-12-16 19:30
2002.01.08
Как создать ANI курсор Живой указатель


1-22030
Andrey senchenko
2001-12-18 12:49
2002.01.08
Form.OnCloseQuery - ¿Cómo manejar?





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español