V linku od coldak-a máš nejaký príklad, ale ak by si potreboval niečo konkrétnejšie, tak skús tento kúsok kódu:
Kód:
var
Subor : TSearchRec;
pocet: integer = 0;
// ...
if ( FindFirst( 'C:\zlozka\*.*', 0 or faDirectory, Subor ) = 0 ) then begin
repeat
case Subor.Attr of
faDirectory: begin
ShowMessage( 'najdena zlozka' );
Exit;
end;
0 { súbor }: begin
if ( ExtractFileExt( Subor.Name ) = '.ntx' ) then begin
ShowMessage( 'najdeny subor s priponou ntx' );
inc( pocet );
end else
ShowMessage( 'najdeny subor' );
end;
end;
until FindNext(Subor) <> 0;
FindClose( Subor );
end;
// je to písane naslepo, tak ak tam mám chybu, oprav ma
Prvý parameter funkcie
FIndFirst je cesta, kde sa má vyhľadávať + maska ( masku som ponechal pre všetky súbory *.* , ale môžeš si ju nastaviť podľa potrieb). Po nájdení súboru spĺňajúceho masku sa v premennej
Subor.Name uloží jeho meno. Funkcia
ExtractFileExt extrahuje z úplnej cesty súboru jeho príponu. Na konci kódu je v premennej
pocet počet výskytu súboru s príponou ntx v danej zložke.
