Crear un fichero de más de 8 letras

[Andrés G.]

Hola a todos,

Tengo que crear un fichero con un nombre largo (más de 8 carácteres).

¿Con que comando puedo crearlo? El comando FCREATE() no funciona.

Gracias.

Andrés

[Antonio Linares]

Andrés,

Usa la función LFN2SFN( cNombreLargo ) --> cNombreCorto y crea ese nombre corto (que corresponde al nombre largo que deseas)

[Andrés G.]

Gracias Antonio.

Esto ya lo probé y lo que consigo es acortar el nombre a 8 caracteres no crear un fichero de mas de 8 caracteres, que es lo que yo necesito.

¿Hay alguna solución?

Recuerdos,

Andrés

[Antonio Linares]

Andrés,

Revisa samples\longname.prg

[Andrés G.]

Antonio,

He probado el ejemplo, lo he compilado tal cual y el resultado es un archivo con solo los 8 _ del nombre, obvía el resto.

¿Sabes a que puede deberse?

Recuerdos,

Andrés

[Antonio Linares]

Andrés,

Tienes razón, discúlpame

Ese ejemplo funciona correctamente con Harbour y FWH 32 bits, pero no con Clipper y FW 16 bits.

[Andrés G.]

Gracias por tu interés Antonio.

Saludos,

Andrés

[Sebastián Almirón]

Hola, yo utilizo las siguientes funciones para crear y manipular los ficheros con nombres largos:

DLL32 FUNCTION FCreate32( lpPathName AS STRING, iAttribute AS LONG ) AS LONG PASCAL FROM "_lcreat" LIB "KERNEL32"
DLL32 FUNCTION FWrite32( hFile AS LONG, lpBuffer AS STRING, wBytes AS LONG ) AS LONG PASCAL FROM "_lwrite" LIB "KERNEL32"
DLL32 FUNCTION FClose32( hFile AS LONG ) AS LONG PASCAL FROM "_lclose" LIB "KERNEL32"
DLL32 FUNCTION FErase32( lpFileName AS STRING ) AS LONG PASCAL FROM "DeleteFileA" LIB "KERNEL32"
DLL32 FUNCTION FOpen32( lpPathName AS STRING, iReadWrite AS LONG ) AS LONG PASCAL FROM "_lopen" LIB "KERNEL32"
DLL32 FUNCTION FRead32( hFile AS LONG, @lpBuffer AS LPSTR, wBytes AS LONG ) AS LONG PASCAL FROM "_lread" LIB "KERNEL32"
DLL32 FUNCTION FSeek32( hFile AS LONG, lOffset AS LONG, iOrigin AS LONG ) AS LONG PASCAL FROM "_llseek" LIB "KERNEL32"

Es decir copias todo esto en tu programa y luego utilizar FCreate32 en vez de FCreate, lo mismo para FOpen, FWrite, FClose, FErase, FRead y Fseek.

Saludos

[Andrés G.]

Sebastián,

Funciona perfectamente, muchísimas gracias.

Recuerdos.

Andrés