klasör içindeki dosyaları tarama

[onur301]

S.A. arkadaşlar
ben ben seçtiğim bir klasörü tarattırıp bu klasörü ve alt klasörlerini ve dosyalarını program içine gömmek istiyorum...
dosyaları programdan çağırmam gerekmiyor.

ben kendi bilgisayarımdaki seçtiğim klasörü tarattıracam. başka bir kişi benim tarattırdığım klasör içindeki dosyaları başka bilgisayarda görebilecek. (sadece görebilecek çalıştırmasına gerek yok)

yani offline cd browser türü bişey olacak... bunu nasıl yapabilirim?

veya bu iş için komponent mi lasım.
Teşekkürler.

[mkysoft]

Kod: Tümünü seç

var
DirSelected: string;
sonuc : TSearchRec;
dosyasay: integer;
begin
  if SelectDirectory('Select a folder:', 'D:\Delphi', DirSelected) then //klasör seçme penceresi
  begin
    dosyasay := FindFirst(DirSelected+'\*.dat', faAnyFile - faDirectory, sonuc);
    while dosyasay = 0 do
    begin
      sonuc.Name; //dosyanın adı bu değişkende
      dosyasay := FindNext(sonuc);
    end;
    FindClose(sonuc);
  end;
end;

bu komutları kullanarak bir klasör seçme penceresi getirip seçilen klasördeki dosyların listesini alabilirsin. veri tabannına yada text bir dosyaya kaydetmek senin elinde. dikkatini çektiyse faDirectory parametresi var bu parametrelerle oynayarak alt klsörlerede erişebilirsin. kolay gelsin.

[onur301]

ben sadece dosya isimlerini değilde ağaç yapısı şeklinde treewiev de göstermek istiyorum.

belki kullanmışsanız bilirsiniz belirtdiğin klasörü dosyaları ve alt dizinleriyle birlikte bir menü ye atan komponentler vardır. bu tür bişey olmalı.

aynı shellistbox gibi bişey olmalı.. (ama offline çalışmalı)
umarım anlatabilmişimdir...
Teşekkürler.

[mkysoft]

offiline çalışması için sende buradan okuduklarını treeview içine atacaksın manuel olarak. bu işi hazır yapan bir şey olmaz sanırım.

[mkysoft]

DirectoryTreeView isimli bir nesne var. Delphi 7 'nin içinde mevcut. Bu nesnenin savetofile ve loadfromfile fonksiyonları var. işine yarayabilir.

[onur301]

way soalasın dostum... ben de tam böyle bişe istiyodum... teşekkürler.