[Resolvido]Alterar nome ficheiro

Boa tarde,

Estou com um pequeno problema, gostaria de saber se é possivel alterar o nome e o local de um ficheiro Excel para outro nome e local.
Estive a esperimentar alterar um codigo ja disponibilizado por JP mas em vão.

Agradeço a ajuda de todos..   

codigo que tentei alterar...

Sub MoverFicheiro()
Dim fso
Dim file As String, sfol As String, dfol As String
file = "Excel -" & Form_sub_report_metros.Text339 & ".xlsx" ' nome do ficheiro
file1 = "1" & ".xlsx" 'nome do ficheiro após alteração
sfol = "\\fileserver\pos-venda\Partilha Pos-Venda\APLICAÇÕES ROB\BD Report para Cliente\PDF\" & Form_sub_report_metros.Text126 & "\" ' caminho inicial
dfol = "\\fileserver\pos-venda\Partilha Pos-Venda\APLICAÇÕES ROB\BD Report para Cliente\" ' caminho destino
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(sfol & file) Then
MsgBox sfol & file & " Não existe ficheiro!", vbExclamation, "Erro"
ElseIf Not fso.FileExists(dfol & file) Then
fso.MoveFile (sfol & file), dfol

Else

MsgBox dfol & file & " Alterado com Sucesso!", vbExclamation, "Sucesso"
End If
End Sub

Boa tarde colega..

Para renomear, crie duas variáveis: NomeAntigo e Novo Nome onde estas variáveis receberão o caminho completo + o nome do arquivo


'-------------------------------------------------------------
'Coloca na variável o diretório do sistema + o nome do arquivo
'-------------------------------------------------------------
NomeAntigo = CurrentProject.Path & "\base\" & NomeAntigo

'-------------------------------------------------------------
'Coloca na variável o caminho completo do banco com nome do bd
'-------------------------------------------------------------
'NovoNome = Caminho + NovoNomedoArquivo
Name NomeAntigo As DirBancoDados

Para Copiar:

FileCopy Origem,Destino

Cumprimentos.

Deu certo.... valeu.   
obrigado por tudo.

O Fórum agradece o Retorno.