Slet eksisterende fil når ny gemmes.

Private Sub CommandButton2_Click()
If [Ark1!c28] = "" Then Navn = [Ark1!c10] Else Navn = [Ark1!c28]
If [Ark1!c28] = "" Then drev = "I:\Design\Vareoprettelser\" & Sheets("Ark1").Range("C6") & "\" & Sheets("Ark1").Range("F8") & "\" Else drev = "I:\Design\Vareoprettelser\" & Sheets("Ark1").Range("C6") & "\" & Sheets("Ark1").Range("F8") & "\"
If MsgBox("Projektmappen gemmes som :  " & drev & Navn & ".xls  er det ok ?", vbYesNo) = vbYes Then
ThisWorkbook.SaveAs drev & Navn & ".xls"
End If
End Sub

I ovenstående script vil jeg gerne indsætte og slette denne når jeg gemmer: "I:\Design\Vareoprettelser\" & Sheets("Ark1").Range("C6") & "\" & Sheets("Ark1").Range("E8") & "\" & Sheets("Ark1").Range("C10") & ".xls" Hvordan skal den lyde???