La Web del Programador: Comunidad de Programadores
 
    Pregunta:  39493 - CAMBIAR ATRIBUTOS DE ARCHIVO EN UN PROGRAMA VISUALFOX 5
Autor:  Rodolfo Salazar
Agradeciendo de antemano su atención, quisiera información sobre la manera de cambiar los atributos de archivo (solo lectura, oculto, sistema) desde un programa creado en Visual Foxpro 5.0. Estoy en conocimiento que Visula Basic posee una instrucción para esto.
Por supuesto utilizando el comando RUN ó ! desde Visual Foxpro puedo utilizar el comando ATTRIB del modo MsDOS; la parte negativa de este proceso es que muestra la venantana negra del Modo MSDOS causando molestias al usuario. Si existe una libreria que contenga intrucciones para VisualFoxpro que trabajen a nivel de modificación de atributos de archivos seria muy útil.

Gracias

  Respuesta:  Cecilia Colalongo
Fijate con ésta API

DECLARE SetFileAttributes IN KERNEL32 STRING lpFileName,LONG dwFileAttributes

Las constantes son

#DEFINE FILE_ATTRIBUTE_ARCHIVE 0x00000020
#DEFINE FILE_ATTRIBUTE_HIDDEN 0x00000002
#DEFINE FILE_ATTRIBUTE_NORMAL 0x00000080
#DEFINE FILE_ATTRIBUTE_OFFLINE 0x00001000
#DEFINE FILE_ATTRIBUTE_READONLY 0x00000001
#DEFINE FILE_ATTRIBUTE_SYSTEM 0x00000004
#DEFINE FILE_ATTRIBUTE_TEMPORARY 0x00000100

Podes usarla así:

=SetFileAttributes("C:\CONFIG.SYS",FILE_ATTRIBUTE_READONLY)

Espero que te sirva.