Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Dosyalama
#4
(11-03-2018, Saat: 21:36)dkadir Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlSelamlar
Kaynak gösterilen bir dosyanın içindeki tüm dosya uzantıları alıp bu uzantılara göre kategorilendirme yapmam lazım.
Örneğin Txt dosyalarını 
Kaynak Gösterilen Klasörden alıp Hedef gösterilen klasör içerisine 'Dökümanlar\Txt Dosyaları' klasörlerini oluşturup içerisine atacak.
-VİDEOLAR
  -mp4
  -avi
-DÖKÜMANLAR
  -txt
  -docx
-RESİMLER
  -jpg
  -png

gibi kategorilendirme yapmasını istiyorum.
Nasıl yapabilirim yardımcı olurmusunuz ?

function Fn_DosyaListele(KlasorAdi: String; const Liste: TStrings;const Kriter: String): Integer;
 procedure DosyaTara(const Yol: String);
var
  Ara: TSearchRec;
begin
  if FindFirst(Yol + Kriter, faAnyFile, Ara) = 0 then
    repeat
      if Ara.Attr and faDirectory = 0 then
        Liste.Add(Yol + Ara.Name);
    until FindNext(Ara) <> 0;
  SysUtils.FindClose(Ara);
end;
begin
Liste.Clear;
if (KlasorAdi <> '') and (KlasorAdi[length(KlasorAdi)] <> '\') then
  KlasorAdi := KlasorAdi + '\';
DosyaTara(KlasorAdi);
Result := Liste.Count;
end;
Verilen kritere göre ornek *.txt klasordeki tum dosyalari yoluyla listeye doldur taşıma işlemi sana kalmış
Yalnızım ama bir kente yürüyen ordu gibiyim, edebiyattan kaçınmalıyım..
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla

Konuyu Paylaş : facebook gplus twitter



Bu Konudaki Yorumlar
Dosyalama - Yazar: dkadir - 11-03-2018, Saat: 21:36
Dosyalama - Yazar: hyperxman - 11-03-2018, Saat: 21:39
Cvp: Dosyalama - Yazar: Lord_Ares - 12-03-2018, Saat: 00:04
Cvp: Dosyalama - Yazar: narkotik - 12-03-2018, Saat: 17:30



Konuyu Okuyanlar: 1 Ziyaretçi