Sikkerhedskopi (A: -> C:)

Nedenstående kode virker fint, bortset fra at der bliver oprettet en sikkerhedskopi af det aktive dokument, dvs. hvis filen hedder "test.doc" og ligger på A:, oprettes der en til fil på disketten med navnet "sikkerhedskopi af test.doc", samt der oprettes en backup kopi på harddisken. Hvordan undgår jeg at sikkerhedskopien bliver oprettet på disketten?


Sub Makebackup()
Dim Backupfile As String
Dim currfile As String
With ActiveDocument
  .Save
    currpath = .Path
    currfile = .Name
    sti = "c:\backup\"
    Backupfile = sti + currfile
  .SaveAs FileName:=Backupfile
End With
ActiveDocument.Close
currdoc = currpath + "\" + currfile
Documents.Open FileName:=currdoc
End Sub