Bir klasördeki dosyaları yeniden isimlendirme

[kelkitli]

Değerli dostlar selamlar,
C\Download klasörü içerisindeki dosyaları nasıl yeniden isimlendirebilirim.

 

[tahsinanarat]

Dosya uzantılarınız ne olacak, jpg, xls, doc vs.

 

[tahsinanarat]

ekli dosya jpg uzantılı dosyalar için

önce sayfa3 te f1 hücresine sürücünüzü, g1 hücresinede klasör adını girerek klasör içindeki dosya isimlerinizi listeleyin,
sonra bu isimleri sayfa1 in a sutununa kopyalayarak b sutununa değiştirmek istediğiniz isimleri girip sürücü ve klasör ismini de girdikten sonra deneme1 butonuna basınız.
Not: örnekte .jpg uzantılı dosyalar için uyarlanmıştır, siz kendi uzantılarınıza göre kodlarda değişiklik yapınız)

 

[kelkitli]

Sayın tahsinanarat,
Teşekkür ederim. Güzel bir uygulama.
Ben de Sayın Levent Hoca'nın şu kodlarını kullanmıştım.

Sub addegistir()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\Downloads\").Files
c = c + 1
Name "C:\Downloads\" & dosya.Name As "C:\Downloads\" & c & ".doc"
Next
End Sub

Kendisine de teşekkür ederim.

 

[tahsinanarat]

Sn.Kelkitli işinize yaradıysa sevindim, bende lazım olduğunda çok araştırmıştım ve en son gönderdiğim şekliyle yapmıştım. İyi bayramlar.

 

[enes2000eren]

SAYIN TAHSİNARAT GÖNDERMİŞ OLDUĞUNUZ DOSYAYI İNCELEDİM AMA BİRTÜRLÜ DEĞİŞTİRMEK İSTEDİĞİM DOSYALARIN İSİMLERİN İ DEĞİŞTİREMEDİM.I:\Documents and Settings\DMS\Desktop\ÇOCUKLARKLASÖRÜ İÇİNDE.DEDİĞİNZ GİBİ önce sayfa3 te f1 hücresine sürücümü, g1 hücresinede klasör adını girerek klasör içindeki dosya isimlerini listeledim,
sonra bu isimleri sayfa1 in a sutununa kopyalayarak b sutununa değiştirmek istediğiniz isimleri girip sürücü ve klasör ismini de girdikten sonra düğme1 butonuna bastım.
ama değişiklik olmadı

 

[tahsinanarat]

dosya uzantılarınız neyse onu kodlardan da düzelttiniz mi? sanıyorum koddaki .jpg olarak yazılıydı. Siz değiştirmeye çalıştığın dosya uzantısı (hepsi aynı olmalı) neyse onu .jpg ile değiştirmelisiniz.