Renombrar Un Fichero

[Skalitiko]

Private Sub Command1_Click()
Dim Fso As New Scripting.FileSystemObject
Dim f As File
Set f = Fso.GetFile("c:\Loquesea.txt")
f.Name = "Changos.txt"
End Sub

Para que funcione tienes que ir al menu Project->References y agregar la referencia Microsoft Scripting Runtime