Foxpro porque no me deja copiar los .dbf y .fpt con copy file
Tengo un form en el cual lo utilizo para realizar un respaldo de la base de datos y sus tablas, para ello cierro las tablas y la base de datos y hago copy file de los archivos .dcx, .dbc, .dct, .dbf, .fpt y .cdx todo lo copia con copy file menos los archivos .dbf y .fpt porque me dice que ya están en uso y no me deja copiarlos, no entiendo el porque este es el código que empleo:
LOCAL lc_dir
lc_dir = ""
lc_dir = thisform.labels3.Caption
SET SAFETY OFF
SET NOTIFY OFF
SET CENTURY off
SET TALK OFF
CLOSE TABLES
CLOSE DATABASES
*!* IF USED("tblseriales")
*!* USE IN "tblseriales"
*!* ENDIF
*!*
*!* IF USED("tblsoftware")
*!* USE IN "tblsoftware"
*!* ENDIF
thisform.labels3.Caption = "Procesando 0%"
thisform.labels3.Refresh
COPY FILE (RUTA)+"*.dcx" TO lc_dir+"\*.dcx"
thisform.olecontrol1.value = 20
thisform.labels3.Caption = "Procesando 20%"
thisform.Refresh
COPY FILE (RUTA)+"*.dbc" TO lc_dir+"\*.dbc"
thisform.olecontrol1.value = 40
thisform.labels3.Caption = "Procesando 40%"
thisform.Refresh
COPY FILE (RUTA)+"*.dct" TO lc_dir+"\*.dct"
thisform.olecontrol1.value = 60
thisform.labels3.Caption = "Procesando 60%"
thisform.Refresh
COPY FILE (RUTA)+"*.dbf" TO lc_dir+"\*.dbf"
thisform.olecontrol1.value = 80
thisform.labels3.Caption = "Procesando 80%"
thisform.Refresh
COPY FILE (RUTA)+"*.fpt" TO lc_dir+"\*.fpt"
thisform.olecontrol1.value = 90
thisform.labels3.Caption = "Procesando 90%"
thisform.Refresh
COPY FILE (RUTA)+"*.cdx" TO lc_dir+"\*.cdx"
thisform.olecontrol1.value = 100
thisform.labels3.Caption = "Procesando 100%"
thisform.Refresh
thisform.labels3.Caption = "Completado"
thisform.labels3.Refresh
MESSAGEBOX("La base de información ha sido respaldada correctamente", 64,"Manager Keygen")
SET DEFAULT TO (RUTA)
DO openDatabase IN prgdatabase
