dosya adını değiştirme

[delphikursu]

renamefile yapılıyor biliyorum ama den sadeçe adının değişmesini istiyorum programımda uzantısı göküzmesin sadeçe adam dosyanın adını girsin ve geğiştirsin

[fahrettin]

tamam dosyanin sadece adini kullanıcdan alıp sonuda da uzantıyı ekleyerek ismini degistirin.....

[lazio]

ExtractFileExt() fonksiyonu ile değiştirmek istediğin dosyanın uzantısını alabilirsin.. daha sonra Fahrettin Abi'nin dediği gibi kullanıcıdan aldığın dosya ismi ile bu uzantıyı birleştirip yeni dosya adı olarak kullanırsın

[aliyonca]

Merhaba.

Yukarıda yazılanları anlamadım o yüzden cevap yazdım.

Ben bir klasör içindeki bütün dosyaların dosya adı uzantılarını silmek istiyorum.

yani "dosya1.asd" yi "dosya1" e çevirmek istiyorum.

elimde böyle bir kod var ama dizin içindeki hiçbir dosyayı bulamıyor.

Kod: Tümünü seç

var
  Form1: TForm1;
  yol,aramametni,dadi : String;
  bulundu : TSearchRec;
  deger : Integer;

Kod: Tümünü seç

yol := DirectoryListBox1.Directory+'\';
aramametni:='*.*';
if FindFirst(yol+aramametni,faAnyFile,bulundu) <> 0 then
  begin
  repeat
    begin
    ShowMessage('dosya bulundu '+bulundu.Name);
    dadi:=bulundu.Name;
    deger:=Pos('.doc',dadi);
    Delete(dadi,deger,4);
    RenameFile(bulundu.Name,dadi);
    end;
  until (FindNext(bulundu) <> 0);
  end
else ShowMessage('Dosya bulunamadı');
FindClose(bulundu);

yardımlarınız için teşekkür ederim.

[fduman]

faAnyFile'ın yanına

Kod: Tümünü seç

faReadOnly	
faHidden	
faSysFile	
faArchive

bunları şöyle ekle faAnyFile + faHidden + ....

[fduman]

Şimdi dikkatimi çekti:

Kod: Tümünü seç

if FindFirst(yol+aramametni,faAnyFile + faHidden + .....!!!,bulundu) = 0 then

olmalı.

[aliyonca]

Haklısın "<>0" yerine "=0" olmalı.

Bende bunu düşünmüştüm ama nasıl olduysa doğru olduğuna karar vermiştim

Yardımların için teşekkürler.