dosya isimlerini büyük ya da kücük harf yapmak

[kneehot]

selamlar arkadaslar.vista home premium kullanıyorum.bilgisayarı duzenlemeye calısıyorum.kaydettigim gerek muzık dosyaları gerek offıce dosyaları kımı buyuk harf kımı kucuk bunların hepsını buyuk ya da kucuk herfe cevırmek mumkunmu bır program yada komut aracılıgı ıle.ılgılenenlere sımdıden cok tesekkurler.

 

[Zeki Gürsoy]

selamlar arkadaslar.vista home premium kullanıyorum.bilgisayarı duzenlemeye calısıyorum.kaydettigim gerek muzık dosyaları gerek offıce dosyaları kımı buyuk harf kımı kucuk bunların hepsını buyuk ya da kucuk herfe cevırmek mumkunmu bır program yada komut aracılıgı ıle.ılgılenenlere sımdıden cok tesekkurler.

Aşağıdaki prosedur ve fonksiyonlar ile ister büyük, isterseniz küçük harf yapabilirsiniz.

Hata iletisi ile karşılaşmamak için dosyanın kullanımda olmadığından emin olun.

Sub test()
Dim d          As String
Const klasor   As String = "C:\Müzikler\"
Const muzikler As String = "*.mp3"

    d = Dir(klasor & muzikler)

    While d <> ""
        DoEvents
        Name klasor & d As klasor & kucuk(d)
        d = Dir
    Wend

End Sub

Private Function buyuk(kelime As String) As String
    buyuk = UCase(Replace(Replace(kelime, "i", "İ"), "ı", "I"))
End Function

Private Function kucuk(kelime As String) As String
    kucuk = LCase(Replace(Replace(kelime, "İ", "i"), "I", "ı"))
End Function

 

[kneehot]

cok tesekkurler fakat bu kodu nreye yazıcam ve "C:\Müzikler\"
yazmıssınız ornegın bunu kendı klasor yerımle guncellememmı gerekıyor yada nerelerını kendıme uydurmalıyım