[Resolved] Renaming system files

[BefunMunkToloGen]

I'm having a slight problem and i think it's due to Command Prompt. I'm trying to rename a system directory. It works on normal directories but not windows system dirs. I'm trying to do this the easitest way possible:

Private Sub cF_Click()
On Error Resume Next
Dim command1 As String
command1 = "rename %homedrive%\RECYCLER RecyclebinBACKUP"
Shell "Cmd.exe /k" & command1, vbNormalFocus
End Sub

Any way around this?