klasör oluşturma(tarihe göre)

[mertcenk3]

button1 e bastığımda c:\deneme\ klasörü altına o güne ait ( yıl \ ay \ gün formatında ) klasör açmak istiyorum .. örneğin :::: c:\deneme\2004\04\06 gibi...
bunu nasıl yapabiliriz..

[mrmarman]

Selam...

- ForceDirectories() fonksiyonu istediğiniz işlemi yapar... Alt dizinler yoksa alt alta direkt oluşturur.

Kod: Tümünü seç

Var // Uses FileCtrl eklenecek...
  Gun, Ay, Yil : Word;
begin
  DecodeDate(Date, Yil, Ay, Gun); // Gün Ay Yıl bileşenlerine ayrıldı...
  ForceDirectories(Format('%s%.4d\%.2d\%.2d', [ExtractFilePath(Application.exename), Yil, Ay, Gun])); // Program dizinine klasörler açıldı...
end;

[hakkus]

Merhabalar,

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var
  Dir: string;
begin

  Dir := 'c:\deneme\2004\04\06';

  if ForceDirectories(Dir) then
    showMessage( Dir + ' Oluşturuldu')
    else
      showMessage( Dir + ' Oluşturulamadı');
end;

[mertcenk3]

cevaplar için teşekkürler. iki si de işimi görür...