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) [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);
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) [4]

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



Páginas: 1 rama entera

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

arriba









Memoria: 0.82 MB
Tiempo: 0.141 c
1-22004
KhLexa
2001-12-17 17:57
2002.01.08
Glitches


1-22221
Agrio
2001-12-16 21:00
2002.01.08
Recursos


1-22157
Flagman
2001-12-20 13:55
2002.01.08
Encuentra dos retornos de carro en una fila.


4-22496
Wic
2001-10-29 18:54
2002.01.08
¿Cómo sé que la conexión está establecida?


7-22442
Alexei
2001-09-26 15:20
2002.01.08
¿Cómo determinar la presencia de un módem?





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 Italiana 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