Backup

Hola experto necesito ayuda urgente tengo este codigo que encontre por uno de los foristas pero solo funciona cuando estoy en el administrador de proyecto, y cuando creo el ejecutable y aplico el form muestra un mensaje que dice "que el archivo ya esta en uso" envio el codigo, gracias de antemano
close databases all
thisform.refresh
respuesta=messagebox("¿ Desea efectuar el respaldo ?",4+32,"Mensaje del Sistema")
if respuesta = 6
do while .t.
if diskspace ("D") = -1
res=messagebox("La unidad no esta preparada, Por favor verifique e intente de nuevo",4+64,"Mensaje del Sistema")
if res = 6
loop
else
return (.f.)
endif
else
set defa to D:\backup_cooperativa
wait window "La unidad esta lista..." Nowait
exit
endif
enddo
if diskspace() < 160
messagebox("Seleccione un disco vacío e intente de nuevo",0+64,"Mensaje del Sistema")
else
set safety off
set defa to C:\cooperativa
wait window "Iniciando el respaldo..." nowait
COPY FILE C:\cooperativa\data\*.* TO D:\backup_cooperativa
set safety on
wait window "El respaldo ha terminado..." nowait
messagebox("El respaldo ha terminado...",0+64,"Mensaje del Sistema")
Endif
Endif