Option Explicit
Function RenameFile(ByVal sSource As String, ByVal sNewName As String, Optional ByVal sNewDestination As Variant) As Boolean
On Local Error GoTo MyEnd
Dim sNameFile As String
Dim sOldDestination As String
If IsMissing(sNewDestination) Then
sOldDestination = Left$(sSource, Len(sSource) - (Len(sSource) - InStrRev(sSource, "\")))
Name sSource As sOldDestination & sNewName
Else
If Right$(sNewDestination, 1) <> "\" Then sNewDestination = sNewDestination & "\"
Name sSource As sNewDestination & sNewName
End If
RenameFile = True
MyEnd:
End Function
Private Sub Exemple()
MsgBox RenameFile("C:\Documents and Settings\Mortalino\Bureau\Test.txt", "Nouveau.txt", "C:\")
MsgBox RenameFile("C:\Documents and Settings\Mortalino\Bureau\Test.txt", "Nouveau.txt")
End Sub