Dizin içindeki bütün dosyaların isimlerini alma

[naile]

Klasörü rx componentlerindeki DirectoryEdit ile seçtiriyorum, bu klasör içindeki tüm dosyarın isimlerini nasıl alabilirim?

[mussimsek]

Merhaba,

1. kodla FindFirst, FindNext, FindClose ile yapmak. Delphi yardımda örneği var.

2. Bir tane FileListBox koyup, klasörünü ayarla. Sonra döngü ile tüm isimleri al

Kolay gelsin.

[gkimirti]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  sr:TSearchRec;
begin
  FindFirst(DirectoryEdit1.Text+'\*.*',faAnyFile,sr);

 repeat
   if (sr.Name<>'.') and (sr.Name<>'..') then
     memo1.Lines.Add(sr.Name);
 until FindNext(sr)<>0;


  FindClose(sr);
end;

[naile]

Bu fileListBox da filename direk pathi ile birlikte veriyor dosya ismini tek dosya ismini veren bir özelliği yokmu bu componentin?

[naile]

Ya bir de anlamadığım directorylist de kullandım orda seçtiği klasördeki dosyaları gösteriyor, ama directorylist de sadece programın olduğu disk var. Yani eğer C de çalışıyorsam sadece C yi görüyor D ise D yi, diğer diske geçiş yokmudur?

[gkimirti]

Ben Rx in DirectoryEditini kullanıyorum
burada sag alt kosede diger suruculeri secebiliyorsun

[mussimsek]

Bu fileListBox da filename direk pathi ile birlikte veriyor dosya ismini tek dosya ismini veren bir özelliği yokmu bu componentin?

Merhaba,

ExtractFileName fonksiyonu tam yolu verilen bir dosyanın sadece dosya ismini döndürür.

Bu fonksiyona gerek kalmadan dosya isimlerini direk FileListBox'tan da alabilirsin :

Kod: Tümünü seç

for i:=0 to FileListBox1.Count-1 do
    ShowMessage(FileListBox1.Items[i]);

Kolay gelsin.

[name]

DirectoryListBox'ın 'Drive' özelliğini kullanarak istdiğiniz sürücüye geçiş yapabilirsiniz.


DirectoryListBox1.Drive:='c';
DirectoryListBox1.Directory:='c:\windows';
memo1.Lines:=DirectoryListBox1.Items;

[naile]

Herkese teşekkür ederim arkadaşlar, Gokmen Bey'in kodu ile yaptım.