dificil solucion (solo para entendidos)

pasquini
03 de Mayo del 2004
\'se necesitan un form con un boton y tres textbox
\'llamados txtDirectory , txtNumberFrom , txtPrefix
\'este programita sirve para renombrar todos los archivos
\'del directorio que se especifica en txtDirectory, usenlo
\' con cuidado !!! , pero lo que yo quiero hacer es
\'renombrar las carpetas solamente , no los archivos les
\' agradeceria mucho si alguien me puede ayudar.

Private Sub Command1_Click()
Dim directory As String
Dim filename As String
Dim filenames As New Collection
Dim prefix As String
Dim i As Integer
Dim index As Integer
Dim pos As Integer
Dim extension As String
Dim new_name As String

directory = Trim$(txtDirectory.Text)
If Right$(directory, 1) <> "\" Then _
directory = directory & "\"

\' obtengo el nombre de los archivos
filename = Dir(directory & "*.*")
Do While filename <> ""
filenames.Add filename
filename = Dir
Loop

\' Renombro los archivos
index = CInt(txtNumberFrom.Text)
prefix = Trim$(txtPrefix.Text)
For i = 1 To filenames.Count
filename = filenames(i)
pos = InStr(filename, ".")
If pos > 0 Then
extension = Right$(filename, Len(filename) - pos + 1)
Else
extension = ""
End If
Name directory & filename As _
directory & prefix & _
Format$(index) & extension
index = index + 1
Next i

MousePointer = vbDefault
MsgBox "Moved" & Str$(filenames.Count) & " files."
End Sub