Øhm... Altså... Så vidt jeg kan forstå... Så kan du ikke kopiere filen?
Så kan du bruge API-kaldet CopyFile...
Her er lige et eksempel:
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Sub main()
CopyFile "C:\\winnt\\system32\\ntoskrnl.exe", "D:\\sikkerhedskopi\\ntoskrnl.exe", False
'Den første streng er filnavnet på kildefilen
'Den anden streng er filnavnet på "modtager"-filen
'Den sidste variabel, bFailIfExists, er egentligt en boolean, og fungerer på følgende måde:
'Hvis den er True, fejler funktionen hvis "modtager"-filen findes
'Hvis den er False, overskrives "modtager"-filen uden videre...
End Sub
Håber at du kan bruge det.. :p
MvH Jannich Brendle