Página 1 de 1

FILEUNIQUE()

Publicado: Mié Mar 02, 2005 8:39 am
por Francisco Sanchez
Vamos a ver explicarme como funciona esta funcion pues ahora me di cuenta
que lo esta haciendo mal, que esta creando 2 ficheros en sitios distintos.
Tengo que crear 2 ficheros, 1 para la dbf y otro para el indice, pero me di
cuenta de que la dbf me la crea en el sitio correcto, pero el indice no y el
caso es que llamo igual a los dos
::cDbfTEMP := FileUnique( cPath, "TMP", )
//Application:cDirectory + "CONTACTO.TMP"
::cIndTEMP := FileUnique( cPath, "CDX", )
//Application:cDirectory + "CONTACTO"
nPos := AT( ".", ::cIndTEmp )
::cIndTEMP := SubStr( ::cIndTEMP, 1, nPos-1 )
siendo cPath = Application:cDirectory. Al cIndtemp que contendra el nombre
del fichero indice le quito la extension para que no me cree luego un
fichero ".cdx.cdx". Lo estoy haciendo mal seguro
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -

FILEUNIQUE()

Publicado: Mié Mar 02, 2005 9:55 am
por Francisco Sanchez
Es decir, explicarme los parametros que recibe esta funcion pues no entiendo
su funcionamiento.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -

FILEUNIQUE()

Publicado: Mié Mar 02, 2005 10:22 am
por jfgimenez
Paco,
> Es decir, explicarme los parametros que recibe esta funcion pues no
> entiendo su funcionamiento.
Estas líneas están sacadas de un programa mio, usando GetTempFilename() y
funciona perfectamente:
cFichero := GetTempFileName()
DBCREATE( cFichero, aCampos )
USE ( cFichero ) EXCLU NEW ALIAS EXP_CAMI
INDEX ON CAMION+MES+PARTE TAG CAMION TO ( cFichero + 'x' )
Después, una vez terminado todo el proceso, elimino los ficheros temporales
así:
CLOSE EXP_CAMI
FErase( cFichero )
FErase( cFichero + 'x' )
--
Un saludo,
José F. Giménez