Zmiana nazw plików w folderze VBA

Witam,
Mam mały problem. Otóż chciałbym, żeby macro wchodziło mi do danego folderu i zamieniło wszystkie nazwy plików jakie tam się znajdą na nowe, np. 2782ga na plik1, 72919ha na plik2 itd. Mam pętle która liczy ile w danym folderze znajduje się plikow, problem jest jedynie z zmiana nazwy.
Pozdrawiam,
Tomek

Musisz dwie pętle po Dir() wykonać. W pierwszej wsadzić do tablicy/kolekcji nazwy plikow, a w drugiej zmienić nazwy. Inaczej może dojść do sytuacji, że pozmienia ci nazwy danego pliku parę razy...

Oki, a mógłbyś mi jakiś szybki pseudokod napisać? Byłbym bardzo wdzięczny:)

Sub FileRename(SourceFile$, DestinationFile$)
On Error Resume Next
    FileSystem.FileCopy SourceFile, DestinationFile
    FileSystem.Kill SourceFile
On Error GoTo 0
End Sub

Sub t()
Dim path$, filename, i&
Dim colFiles As New Collection

path = "c:\tmp\tmp\"

' odczyt i wrzucenie do kolekcji
filename = Dir(path & "*.mp3")

While filename <> vbNullString
    colFiles.Add (filename)
    filename = Dir()
Wend


' zmiana nazw
i = 1
For Each filename In colFiles
    FileRename path & filename, path & "plik" & i & ".mp3"
    i = i + 1
Next

End Sub

Wielkie dzięki, wszystko śmiga jak należy :D