Dosya Adı Değiştirme

En son güncellendiği tarih: 31 May 2019

Klasör için de bulunan dosyaların adını değiştirmek için aşağı da ki kodları uygulayabilirsiniz.




Sub Dosya_Adi_Degistir()

Dim Satir As Integer, Yol As String, Dosya As String, YeniDosya As String, Uzanti As String

Satir = 2

While Range("A" & Satir) <> ""

Yol = Range("A" & Satir)

Dosya = Range("B" & Satir)

YeniDosya = Range("C" & Satir)

Uzanti = "." + Split(Dosya, ".")(UBound(Split(Dosya, ".")))

Name Yol & Dosya As Yol & YeniDosya + Uzanti

Satir = Satir + 1

Wend

End Sub

852 görüntüleme2 yorum

Son Paylaşımlar

Hepsini Gör
  • Instagram
  • Facebook Sosyal Simge
  • Pinterest Sosyal Simge
  • YouTube
Mubertrzon

mubertrzon@mubertrzon.com

Tel: 00000000000

© 2018 mubertrzon

Marmara Üniversitesi
Teknik eğitim fakültesi