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.
Klasörü alt dosyalarıyla beraber kopyalama..........
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- sadettinpolat
- Moderator
- Mesajlar: 2131
- Kayıt: 07 Ara 2003 02:51
- Konum: Ankara
- İletişim:
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
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
selam
böyle bir kod işini görür sanırım
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;
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
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;