Dosya Kopyalamak - Delphi

Dosya kopyalarken Windows’un CopyFile() ve silerken DeleteFile() fonksi­yonunu kullanabilirsi­niz. CopyFile() fonksiyonu ile nasıl dosya kopyalandığını anlatmak için projenin formuna 2 TextBox ve bir düğme yerleştirdim. Kopyalanmak istenen dosya ilk TextBox’a, hedef klasör ve dosyaya verilmek istenen ad 2. TextBox’a yazılıp “Kopyala” düğmesi tıklanacak. CopyFile() fonksiyonu 3 parametreye sahiptir. İlk parametrede kopyalanacak dosya, 2. paramet­rede ise dosyanın kopyalanacağı hedef klasör ve dosya adı verilmektedir. 

Hedef klasörde aynı ada sahip başka bir dosya varsa ve üstüne yazma işleminin yapılmasını istemiyorsanız 3. parametre olarak True değerini kullanmalısınız. Kopyalama işlemi başarılı olduğunda CopyFile() fonksi­yonu geriye True göndermekte­dir. 

procedure TForm1.KopyalaClick(Sender: TObject);
Var
  Sonuc : Boolean;
begin
   Sonuc := CopyFile(PChar(Edit1.Text), PChar(Edit2.Text), True);
   If Sonuc = True Then
      ShowMessage('Kopyalama Başarılı')
   Else
     ShowMessage('Kopyalama Başarılı değil')
end;

RenameFile() fonksiyonundan yararlanarak istediğiniz dosyanın adını değiştirebilirsiniz. Bu deyimin nasıl kullanıldığını size göstermek için üzerinde çalıştığım forma iki Edit yerleştirdim. Çalışma anında ilk Edit’e adı değiştirilmek istenen dosyanın adı, ardından dosyaya verilmek istenen yeni ad 2. Edit’e yazılıp aşağıda verilen kod işletilirse söz konusu dosyanın adı değişir. 

ChDir('C:\’);
RenameFile(Edit1.Text, Edit2.Text);

RenameFileveya DeleteFile deyimleri ile üzerinde işlem yapmak istediğiniz dosyanın ilgili klasörde mevcut olup olmadığını öğrenmek istiyorsanız FileExists() fonksiyonundan yarar­lanabilirsiniz. Bu fonksiyonun nasıl kullanıldığını aşağıda görebilirsiniz.

ChDir('C:\’);
If FileExists(Edit1.Text) Then 
    RenameFile(Edit1.Text, Edit2.Text);
Else 
  ShowMessage('Dosya bulunamadı’);