delete eller move file i VBA access 97 eller 2K

oprindeligt script til filecopy

Function kopier_billeder()
Dim db As Database
Dim rs As DAO.Recordset
Dim n As Long
Dim StartFolder As String
StartFolder = "\\dkedbs02\ssp_billeder$\Returbilleder_fra_TBA\Til_MAM\"
Set db = CurrentDb
Set rs = db.OpenRecordset("flyt", dbOpenSnapshot)
rs.MoveFirst

Do Until rs.EOF
        FileCopy StartFolder & rs![navn], rs![sti] & rs![navn]
        rs.MoveNext
Loop
rs.Close
Set rs = Nothing
db.Close
MsgBox "Data er nu kopieret"
End Function

Du har allerede copy.
Move = Copy + Slet
Slet fil hedder i VBA: Kill <path>
Du skal altså bare lægge en Kill efter FileCopy.

det vil sige :

FileCopy StartFolder & rs![navn], rs![sti] & rs![navn]
Kill StartFolder & rs![navn]

Nemlig.

Tak for point