Klasör İçindeki Dosya Adlarını Büyük Harf Yapmak

[vurkan]

Arkadaşlar merhaba. Benim yapmak istediğim şey bir klasör ve varsa alt klasör içindeki dosya adlarını büyük harf yapmak. Bunun bir yolu var mıdır? Veya yazılacak bir kod ile bu sağlanabilir mi? Teşekkürler.

 

[halit3]

Kod:

Sub mevcut_dosyaları_bul()

Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.SELF.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo atla
If Right(Kaynak, 1) <> "\" Then Kaynak = Kaynak & "\"

Liste4 (Kaynak)
Set Klasor = Nothing
MsgBox "işlem tamam"
Else
atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
End Sub
Private Sub Liste4(yol As String)
Dim fL As Object, fs As Object, f As Object, j As Long, n As Long
Set fL = CreateObject("Scripting.FileSystemObject")

For Each Dosya In fL.GetFolder(yol).Files
Name Dosya As UCase(Dosya)
Next

On Error GoTo sonraki
For Each f In fL.GetFolder(yol).SubFolders
Liste4 (f.Path)
sonraki:
Next

Set fL = Nothing
End Sub

 

[vurkan]

Halit3 hocam verdiğiniz kodlar gayet güzel çalıştı. Eline sağlık çok teşekkür ediyorum.

 

[halit3]

Teşekkürler iyi çalışmalar

 

[ASLAN7410]

Sayın Halit Bey, kusara bakmayın rahatsız ediyorum, yazmış olduğunuz kod gayet güzel çalışıyor, ellerinize sağlık.

Kodu çalıştırdığımızda ekrana gelen Klasöre Gözat penceresi masaüstündeki kısayolu oluşturulmuş klasörleri görmüyor. (1.resim)
Klasöre Gözat penceresini ekte gönderdiğim resimdeki gibi yapabilir misiniz? (2.resim)

 

[halit3]

Kısa yolları göstermesimi gerekiyor.

Boş bir excell dosyası oluştur oradan klasör veya dosya aç sekmesinden masa üstünü seç orada klasöre ait kısa yollar gözüküyormu.

 

[ASLAN7410]

Sizin dediğiniz gibi yapınca oldu.

Masa üstüne bir klasör oluşturup, kısayolları bunun içine atıp, makroyu çalıştırınca kısayolun ana sayfasındaki dosyaların isimlerini büyük harf yaptı.

Çok teşekkür ediyorum, hayırlı geceler diliyorum.