Dosya adı değiştirmek

[k0081]

Merhaba arkadaşlar;

buton kullanarak C:\deneme\A\B yolundaki B klasörü içinde bulunan dosyanın adını P001 olarak nasıl değiştirebilirim ? (sadece isim. uzantı sabit kalacak)

 

[mahmut011]

uzanti = ".dat" 'örneğin
dosyaismi = "xxx"
sonrakiisim = "P0001"
Name "C:\deneme\A\B\" & dosyaismi & uzanti As "C:\deneme\A\B\" & sonrakiisim & uzanti

http://www.get-digital-help.com/2013/04/19/copyrename-a-file-excel-vba/

 

[k0081]

mahmut011;

Teşekkürler hocam, burdaki kodlardan istediğimi yapabilirim.