Dosya varsa başka isim vererek taşımak

[carsoft]

Diyelimki elimde 10 adet aynı isimli dosya var Mesela : yedek.txt gibi aynı isimde hepsi

ben bunları başka klasöre MoveFile fonksiyonuyla taşıyorum ama aynı dosya varsa hadi ikinci dosyayıda RenameFile komutuyla
hallediyorum ama digerleri nasıl yapabilirim dosya varsa farklı isimler versin

[Lord_Ares]

FileExists belirtilen klasörde dosyanın var olup olmadığını kontrol eden bir fonksiyoundur dosya varsa geriye true değerini döndürür. Bu fonksiyonu kullanarak, fonksiyon false döndürene kadar klasörü kontrol ettir. Klasörü kontrol ettin, true döndü diyelim git rename ile değiştir. Taki false döndürene kadar bunu yap. Bunuda kısa while döngüsü ile yapabilirsin.

Kod: Tümünü seç

while  FileExists ('C:\deneme.txt') =true do begin  /// filexists ten dönen değer true olduğu sürece bunu yap , yani dosya var olduğu sürece

           Bu kısımda rename kullanrak dosya adını değiştir.  

end;

[carsoft]

dediginizi yapıyorum zaten ama aynı isimli dosyadan ikiden fazla varsa yine oluyor yani dosya var olduğu sürece dosya sonuna bir harf eklesin

[sunye]

var
i : Byte;
begin

while FileExists (DosyaAdi) =true do begin
Inc(i);
RenameFile(DosyaAdi+'.'+DosyaUzantisi,DosyaAdi+IntToStr(i)+'.'+DosyaUzantisi);
end;

şeklinde kullanabilirsin