Klasördeki Resim dosyalarinin sayisi?
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Klasördeki Resim dosyalarinin sayisi?
Arkadaslar bir klasörün icindeki resim dosyalarinin sayisini ve isimlerini bulmam lazim nasil yapabilirim?
-
- Üye
- Mesajlar: 401
- Kayıt: 22 Tem 2004 02:03
- Konum: sıkıntı çekmişlere yakın bi yerden
Re: Klasördeki Resim dosyalarinin sayisi?
var
searchResult : tsearchrec;
begin
// Try to find regular files matching Unit1.d* in the current dir
if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then
begin
repeat
ShowMessage('File name = '+searchResult.Name);
ShowMessage('File size = '+IntToStr(searchResult.Size));
until FindNext(searchResult) <> 0;
// Must free up resources used by these successful finds
FindClose(searchResult);
end;
end;
searchResult : tsearchrec;
begin
// Try to find regular files matching Unit1.d* in the current dir
if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then
begin
repeat
ShowMessage('File name = '+searchResult.Name);
ShowMessage('File size = '+IntToStr(searchResult.Size));
until FindNext(searchResult) <> 0;
// Must free up resources used by these successful finds
FindClose(searchResult);
end;
end;
type
Tform1 = class(Tform)
Tform1 = class(Tform)
Re: Klasördeki Resim dosyalarinin sayisi?
Kod: Tümünü seç
procedure TForm1.ListeleDosyalari(Klasor: string; Dosyalar: TStrings; uzanti:string);
var
SR: TSearchRec;
begin
if FindFirst(Klasor+ uzanti, faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
Dosyalar.Add(ChangeFileExt(SR.Name, ''));
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
Kod: Tümünü seç
ListeleDosyalari(ExtractFilePath(Application.ExeName)+'resimler\', listbox1.Items,'*.jpg'); //listbox1 e jpg uzantılı dosyaları listeler sayısınıda listbox1.Items.Count diyerek ögrenebilirsin