Selamun Aleyküm
Belirtilen bir klasör içerisindeki bütün dosyaların uzantılarını almam gerekiyor
Bunu nasıl yapabilirim
Teşekkürler
Dosya Uzantısı Tarayıcı
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: Dosya Uzantısı Tarayıcı
Aleyküm selam,
Kullandığınz Delphi sürümünü belirtmemişsiniz. Aşağıdaki örnek Delphi 2010 ve sonrasında çalışmaktadır.
Kullanımı şöyle olabilir:
Eğer alt dizinleri de arasın istiyorsanız prosedürü aşağıdaki şekilde çağırabilirsiniz
NOT: İlgili dizinde eki olmayan dosya var ise bu dosya listenin ilk seçeneği olacak ve değeri boş olacaktır.
Kullandığınz Delphi sürümünü belirtmemişsiniz. Aşağıdaki örnek Delphi 2010 ve sonrasında çalışmaktadır.
Kod: Tümünü seç
uses
System.IOUtils,
System.Types;
procedure GetFileExtensionsInFolder(const FolderName: string; out List: TStringList; const Recursive: Boolean = False);
var
SearchOption: TSearchOption;
Files: TStringDynArray;
I: Integer;
begin
List.Clear();
if not Recursive then
SearchOption := TSearchOption.soTopDirectoryOnly
else
SearchOption := TSearchOption.soAllDirectories;
Files := TDirectory.GetFiles(FolderName, '*.*', SearchOption);
if Length(Files) > 0 then
begin
List.Sorted := True;
List.Duplicates := dupIgnore;
for I := Low(Files) to High(Files) do
begin
List.Add(Copy(ExtractFileExt(Files[I]), 2, MaxInt));
end;
end;
end;
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
ExtensionList: TStringList;
begin
ExtensionList := TStringList.Create();
try
GetFileExtensionsInFolder(Edit1.Text, ExtensionList);
ListBox1.Items.Assign(ExtensionList);
finally
ExtensionList.Free();
end;
end;
Kod: Tümünü seç
GetFileExtensionsInFolder(Edit1.Text, ExtensionList, True);
Re: Dosya Uzantısı Tarayıcı
Sen mükemmelsin Ertank!
Olurda birgün karşılaşırsak sana kebap ısmarlayacağım
Olurda birgün karşılaşırsak sana kebap ısmarlayacağım