Alle Dateien in Großbuchstaben umwandeln

Alle Dateien in einem Ordner sollen in Großbuchstaben umgewandelt werden.
Kann man das mit VBA lösen ?
 
Sub Dateien_in_Grossbuchstaben()
    Pfad = "c:\temp\"
    Datei = Dir(Pfad, vbArchive)
    Do While Datei <> ""
        If Datei <> "." And Datei <> ".." Then
            Dateiname = Pfad & Datei
            If GetAttr(Dateiname) = vbArchive Then
                Name Dateiname As UCase(Dateiname)
            End If
        End If
        Datei = Dir
    Loop
End Sub