Dim asıldosya, kopyadosya As String
 
asıldosya = DosyaYolu
kopyadosya = "D:\dosyadeposu\" _
& Right(DosyaYolu, Len(DosyaYolu) - InStrRev(DosyaYolu, "\"))
 
If MsgBox("Dosya Arşivlenecek.. Emin misiniz?", vbYesNo) = vbYes Then
 
Dim Trz
Set Trz = CreateObject("Scripting.FileSystemObject")
 
Trz.CopyFile asıldosya, kopyadosya
    If MsgBox("Dosya arşivlendi.. Asıl dosyayı silmek ister misiniz?", vbYesNo) = vbYes Then
    Kill asıldosya
    End If
End If