ник: ДрЮня
1. сделать копию файла, используя WinAPI
Declare Function CopyFile& Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, ByVal bFailIfExists As Long)
2. сделать бекап из копии
3. убить копию