Klasördeki dosya adlarına ek nasıl yapılabilir?

[assenucler]

Değerli Dostlar;


Günaydın.

C: sürücüsündeki arşivimde, "XXX" adlı bir klasör ve içinde 800 - 900 adet aşağıdaki uzantılara sahip dosyalar var.

Dosya uzantıları: pdf, doc, docx, xls, xlsx, xlsm, ppt, pptx.

Yukarıdaki uzantılara sahip dosya adlarının başına, makroyla " Bursa Tarihi vb" kısa 1-2 sözcük eklemek istiyorum.

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

 

[Ömer]

Merhaba,

Linki inceleyin.

http://www.excel.web.tr/f50/toplu-olarak-dosya-isimlerini-deoi-tirme-t47098.html

.

 

[assenucler]

Sayın Ömer üstadım,

Gününüz aydınlık, neşeniz, sağlığınız yerinde ve kazancınız bol olsun.

Sitemizin en eski üyelerindenim. Sizler gibi uzmanlarımızın değerli zamanını gereksiz yere almamak için, site arşivi ve internette taramalar yaptım. Bulduğum dosyaları kendime uyarlayamadım.

Yukarıda da değindiğim gibi, tek sürücü olan laptopumdaki klasörün içindeki farklı uzantılı dosya adlarının başına, "Bursa Tarihi" sözcüğünü eklemek istiyorum.

Bilgilerinizi rica ederim.

 

[Ömer]

Bu şekilde deneyin.

Sub Yeniden_Adlandir()

    Dim Dosya As String, Klasor As String, i As Integer, Deg
     
    Klasor = "C:\XXX\"
    Dosya = Dir(Klasor)
    Deg = "Bursa Tarihi"
     
    While Dosya <> ""

        Name Klasor & Dosya As Klasor & Deg & " " & Dosya
        Dosya = Dir
        
    Wend
     
End Sub

.

 

[assenucler]

Sayın Ömer,


Yanıtınız için teşekkürler. Bir şey sormak istiyorum.

Klasör şu an masa üstünde, klasör yolunu aşağıdaki gibi mi, dikkate almalıyım?

Farklı uzantılı dosyalar var. Lütfen bilgisizliğimi mazur görünüz. Bu kodu nereye yazacağım?

C:\Users\Adım\Desktop\

Sevgi ve saygılar.

 

[Ömer]

Klasör değişkenine doğru yolu ve adı yazmanız yeterli olur.

Klasor = "C:\Users\Adım\Desktop\XXX\"

Gibi.

.

 

[assenucler]

Sayın Ömer,


Yanıtınız için teşekkürler. Bir şey sormak istiyorum.

Klasör şu an masa üstünde, klasör yolunu aşağıdaki gibi mi, dikkate almalıyım?

Farklı uzantılı dosyalar var. Lütfen bilgisizliğimi mazur görünüz. Bu kodu nereye yazacağım?

C:\Users\Adım\Desktop\

Sevgi ve saygılar.

Sayın Ömer bey,


Dosya uzantıları pdf, doc, docx, xls, xlsx, xlsm, ppt, pptx olunca;
kodları hangi office yazılımına yazmam gerektiği konusunda bir karışıklık yaşıyorum.

Beni bu konuda bilgilendirir misiniz?

 

[Ömer]

Dosya uzantılarıyla ilgili bir şey yapmanıza gerek yok. Klasörde bulduğu dosyaların başına ilgili ibareyi ekler.

Asıl dosyanıza uygulamadan önce, deneme klasörü oluşturup kodları denemenizi tavsiye ederim.

.

 

[assenucler]

Teşekkürler

Üstadım,


Verdiğiniz kod ile olumlu sonuç aldım. Çok teşekkürler.

Sevgi ve saygılarımla.