Klasörü alt dosyalarıyla beraber kopyalama..........

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Turki
Üye
Mesajlar: 75
Kayıt: 03 May 2005 08:02

Klasörü alt dosyalarıyla beraber kopyalama..........

Mesaj gönderen Turki »

Selamlar bir Klasörü içideki tüm dosyalarla beraber üstüne yazarak tekrar tekrar kopyalamak.
Sitelerde genelde hep noksan kodlar buldum örnek;sadece kopyalıyor.bir kere veya aynı yere kopyasını çıkarıyor.
Kullanıcı avatarı
sadettinpolat
Moderator
Mesajlar: 2131
Kayıt: 07 Ara 2003 02:51
Konum: Ankara
İletişim:

Mesaj gönderen sadettinpolat »

viewtopic.php?t=9902


başlığında delete işlemi ile ilgili örnek verilmiş.

TSHFileOpStruct yapısına bakarsan çeşitli işlemler için çeşitli parametreler alıyor. mesela silme işlemi için FO_COPYgibi... bunları kullanarak işini gorebilirsin...


http://www.swissdelphicenter.ch/torry/s ... php?id=152
"Sevmek, ne zaman vazgececegini bilmektir." dedi, bana.

---
http://sadettinpolat.blogspot.com/
Kullanıcı avatarı
selman
Üye
Mesajlar: 664
Kayıt: 04 Ara 2003 12:06
Konum: İzmir

Mesaj gönderen selman »

selam
böyle bir kod işini görür sanırım

Kod: Tümünü seç

function CopyFile(von,zieldir: String): boolean;
var
 fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom := PChar(von+#0);
    pTo := PChar(zieldir)
  end;
  Result:=(0=ShFileOperation(fos));
 end;

procedure Tyedekle.RzButtonEdit1ButtonClick(Sender: TObject);
begin
 opendialog1.Execute;
Rzbuttonedit1.Text:=opendialog1.FileName;
end;
Kullanıcı avatarı
selman
Üye
Mesajlar: 664
Kayıt: 04 Ara 2003 12:06
Konum: İzmir

Mesaj gönderen selman »

birde son olarak unuttuğum bir şey daha mesela yedekleme butonunu içinede
bu kodu yazmayı unutmayalım bundan önceki mesajımda yazmayı unutmuşum

Kod: Tümünü seç

procedure Tyedekle.RzBitBtn1Click(Sender: TObject);
begin
 if not CopyFile(''+RzbuttonEDIT1.Text+'',''+RzbuttonEDIT2.Text+'') then
   raise Exception.Create('Kopyalama hatası');
 end;
Turki
Üye
Mesajlar: 75
Kayıt: 03 May 2005 08:02

Mesaj gönderen Turki »

Sağol Kardeşim. Bu kodlar işimi görür.Hepinizden Allah razı olsun.
Cevapla