CLOSE DATABASES
IF FILE("c:\dbxl\datacompriv\contenants.dbf") then
v_file_name="contenants"+SUBSTR(dtoc(DATETIME(),1,2))+SUBSTR(dtoc(DATETIME(),4,2))+SUBSTR(dtoc(DATETIME(),7,2))+".dbf"
COPY FILE c:\dbxl\datacompriv\contenants.dbf TO c:\dbxl\datacompriv\sauve\&v_file_name
ENDIF