To rename folder

public Function fnRenameFolder(strFolderName,strSourcePath,strDestinationPath)
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If Not FSO.FolderExists(strDestinationPath) Then
       FSO.MoveFolder strSourcePath,strDestinationPath
       Call fnDoneResult(strFolderName & " Folder rename",strFolderName & " Folder rename from " & strSourcePath & "to " & strDestinationPath & "Sucessfully")
    Else
       Call fnFailResult(strFolderName & " Folder Not Exist",strFolderName & " Folder already exist with same name on " & strDestinationPath )
    End If  
End Function