FoxPro/Visual FoxPro - copia de respaldo

Hola programadores 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

Veo que al principio del codigo solo emites un close database all, pero no un close all, que es para las tablas libres tambien. No se si me equivoco.

Debes comprobar las tablas libres que puedan estar usando en esa carpeta.

Solo quise ayudar.

hola lo intente pero sigue mostrando " el archivo esta en uso"

Sebastian, si te hace el respaldo, lo que sucede es que tu quieres copiar toda la carpeta, incluso el formulario del cual ejecutas el respaldo, hace toda la copia menos la del formulario.

pero como puedo cambiarlo, cuando estoy en el administrador de proyecto y lo ejecuto solo copia las tablas.