FoxPro/Visual FoxPro - urgente backup

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

Todo este codigo lo tengo en el boton de commando

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

yo tengo uno ya terminado, mas tarde lo subo a megaupload u otro servidor.

ya lo habia posteado antes pero el link ya no funciona.

Saludos

hola Sebastian,
Aqui te mando el link para que puedas bajar un software para backups gratuito que yo utilizo.

http://www.educ.umu.se/~cobian/cobianbackup.htm

Saludos y felices fiestas desde Peru,
Cesar

gracias