Listboxa Klasör İsimlerini Atmak

[gloryboy]

ya çok soru soruyorum sanırım

atıyorum c: sürücüsünümn içindeki klasörleri listboxa atmak istiyorum nasıl yapacam

[rsimsek]

DirectoryListBox ve DirectoryListBoxEx belki işine yarar. İncelemeni tavsiye ederim. Alt klasörleri de almak istiyorsan kod yazman gerekecek

[ulu coder]

Merhaba.
Bir de bu yöntem var:

Kod: Tümünü seç

procedure KlasorArastir(Yol: String);
var
  AramaKaydi:TSearchRec;
  Dosya:String;
begin
  ListBox1.Clear;
  if FindFirst(Yol+'*',faDirectory,AramaKaydi)=0 Then
  begin
    repeat
      dosya:=AramaKaydi.Name;
      if not(FileExist(Yol+Dosya)) then //Eğer dosya değilse
        ListBox1.Add(Dosya);
    Until FindNext(AramaKaydi)<>0;
  end;//if ilk dosya bulunduysa
end;//KlasörAraştır

Kolay gelsin...

[gloryboy]

ulu coderın verdiği kod kullanıyorum çalışıyor fakat bazen jpg dosyalarını falanda klasör sanıyor neden olabilir

[ulu coder]

Merhaba.

Yazdığım kodun yaptığı iş şu:
Klasörün içindeki her şeyi(dosya+klasör) buluyor.
Bulduğu isimde bir dosyanın oluşturulup oluşturulmadığına bakıyor (FileExist)
Dosya oluşturulmamışsa, bu bir klasördür diyor
Bu açıdan bakınca pek sağlıklı çalışmaz gibi geldi bana...
(Ben kullanırken sorun çıkartmamıştı )

if not(FileExist(Yol+Dosya))...
yerine
if DirectoryExist(Yol+Dosya) şeklinde deneyebilir misiniz?

Bundan da kararlı bir kod vardı, ama hatırlayamıyorum; delphi help yardımcı olabilir.

Hataya sebep olduğum için özür dilerim.

Kolay gelsin...

[gloryboy]

evet bu sefer oldu çok sağol

[ulu coder]

Hatamı telafi ettiğime sevindim.

Bu arada, saat 4 olmuş, uykusu kaçan sadece ben değilim galiba
DelphiTurkiye farkı, 7/24 cevap...

[gloryboy]

evet

[gloryboy]

ya şimdi fark ettim ulucoder verdiğin klasör bulma kodunda ufak bir problem daha çıktı atıyorum 10 klasör varsa sürücüde bunun 9 tanesini listeliyor nedense niye olabilir

[ulu coder]

Merhaba

@rsimsek'in önerdiği DirectoryListBox ve DirectoryListBoxEx tam istediğiniz gibi çalışıyorsa kodlarınız incelemenizi tavsiye edebilirim.

Kolay gelsin...