FCREATE( ) (Función)
Crea y abre un archivo de bajo nivel.
FCREATE(cFileName [, nFileAttribute])
Valores devueltos
Numeric
Parámetros
cFileName
Especifica el nombre del archivo que se va a crear. Puede incluir una designación de unidad y una ruta de acceso junto con el nombre de archivo. Si no se incluye un designador de unidad o una ruta de acceso, el archivo se creará en el directorio predeterminado.Nota Visual FoxPro no reconocerá correctamente un nombre de ruta de acceso si un nombre de disco o de directorio contiene un signo de exclamación (!).
nFileAttribute
Especifique los atributos del archivo creado. La siguiente tabla enumera los atributos de archivo que puede especificar.nFileAttribute Atributos de archivo 0 (Predeterminado) Lectura y escritura 1 Sólo lectura 2 Oculto 3 Sólo lectura/Oculto 4 Sistema 5 Sólo lectura/Sistema 6 Sistema/Oculto 7 Sólo lectura/Oculto/Sistema Observe que un archivo creado con un valor de nFileAttribute distinto de 0 no se puede escribir con FPUTS( ) o FWRITE( ) hasta que se cierre y se vuelva a abrir el archivo.
Utilice DISPLAY STATUS o LIST STATUS para mostrar o imprimir información sobre los archivos creados y abiertos con FCREATE( ). DISPLAY STATUS y LIST STATUS le dan la información siguiente sobre cada archivo abierto o creado con una función de archivo de bajo nivel:
- La unidad, directorio y nombre de archivo
- El número de controlador de archivo
- La posición del puntero del archivo
- Los atributos de lectura y escritura
Observaciones
Si ya existe un archivo con el mismo nombre que especifique, se sobrescribirá sin avisar.
FCREATE( ) asigna un número de controlador al archivo, que puede utilizarse para identificarlo en otras funciones de archivo de bajo nivel de Visual FoxPro. FCREATE( ) devuelve el número controlador cuando se crea el archivo o -1 si no se puede crear.
Sugerencia Asigne el número de control de archivo a una variable de memoria para que pueda utilizarlo en otras funciones de archivos de bajo nivel.
No puede abrir un puerto de comunicaciones con FCREATE( ). Utilice FOPEN( ) para abrir un puerto de comunicaciones.
Ejemplo
IF FILE('errors.txt') && Does file exist?
gnErrFile = FOPEN('errors.txt',12) && If so, open read-write
ELSE
gnErrFile = FCREATE('errors.txt') && If not create it
ENDIF
IF gnErrFile < 0 && Check for error opening file
WAIT 'Cannot open or create output file' WINDOW NOWAIT
ELSE && If no error, write to file
=FWRITE(gnErrFile , 'Error information to be written here')
ENDIF
=FCLOSE(gnErrFile ) && Close file
IF gnErrFile > 0
MODIFY FILE errors.txt NOWAIT && Open file in edit window
ENDIF
Vea también
CLOSE ALL | FCHSIZE( ) | FCREATE( ) | FEOF( ) | FFLUSH( ) | FGETS( ) | FOPEN( ) | FPUTS( ) | FREAD( ) | FSEEK( ) | FWRITE( )