Como puedo cambiar los atributos
Permiten conocer y manipular los atributos de cualquier archivo. Esta es otra pregunta por favor
1 Respuesta
Respuesta de Cesar RalFito
1
Con esta rutina puedes modificar los atributos
DECLARE SHORT SetFileAttributes IN KERNEL32 ;
STRING @ lpFileName, ;
INTEGER dwAttributes
DECLARE INTEGER GetFileAttributes IN WIN32API STRING @ lpFileName
#DEFINE FILE_ATTRIBUTE_READONLY 1
=SetFileAttributes('c:\config.sys', BITOR(GetFileAttributes('c:\config.sys'),FILE_ATTRIBUTE_READONLY))
* Atributo de solo lectura
=SetFileAttributes('c:\config.sys', 0)
&& Remueve todos los atributos del archivo
Espero se a de utilidad
Atentamente. Fitocava
Noteolvides de cerrar la pregunta
DECLARE SHORT SetFileAttributes IN KERNEL32 ;
STRING @ lpFileName, ;
INTEGER dwAttributes
DECLARE INTEGER GetFileAttributes IN WIN32API STRING @ lpFileName
#DEFINE FILE_ATTRIBUTE_READONLY 1
=SetFileAttributes('c:\config.sys', BITOR(GetFileAttributes('c:\config.sys'),FILE_ATTRIBUTE_READONLY))
* Atributo de solo lectura
=SetFileAttributes('c:\config.sys', 0)
&& Remueve todos los atributos del archivo
Espero se a de utilidad
Atentamente. Fitocava
Noteolvides de cerrar la pregunta
