Cómo cambiar los atributos de una carpeta local

[RickDeCastro]

Hola grupo.

Necesito modificar el atributo de una carpeta local a HIDDEN (oculta), preferentemente usando la API de Windows.
¿Alguien tiene a mano alguna función que me permita hacerlo?

Yo tenía una que usaba el "Scripting.FileSystemObject" para eso, pero ni esa la puedo encontrar...

Agradezco anticipadamente cualquier solución.

---
Ricardo De Castro Aquino
Asunción - Paraguay

[Fernando D. Bozzo]

Hola Rick, podés usar esta rutina.

Uso:
changeFileAttribute("ruta\archivo", "+H")
changeFileAttribute("ruta\archivo", "-H")

Podés cambiar los atributos R, S, H, A de archivos y directorios.

Saludos.-

    PROCEDURE changeFileAttribute
        * Using Win32 Functions in Visual FoxPro
        * example=103
        * Changing file attributes
        LPARAMETERS  tcFileName, tcAttrib
        tcAttrib    = UPPER(tcAttrib)

        #DEFINE FILE_ATTRIBUTE_READONLY        1
        #DEFINE FILE_ATTRIBUTE_HIDDEN        2
        #DEFINE FILE_ATTRIBUTE_SYSTEM        4
        #DEFINE FILE_ATTRIBUTE_DIRECTORY    16
        #DEFINE FILE_ATTRIBUTE_ARCHIVE        32
        #DEFINE FILE_ATTRIBUTE_NORMAL        128
        #DEFINE FILE_ATTRIBUTE_TEMPORARY    512
        #DEFINE FILE_ATTRIBUTE_COMPRESSED    2048

        TRY
            LOCAL loEx AS EXCEPTION, dwFileAttributes, dwFileAttributes_Orig, lnRet
            lnRet    = 0

            * read current attributes for this file
            dwFileAttributes         = fb2p_GetFileAttributes(tcFileName)
            dwFileAttributes_Orig    = dwFileAttributes

            IF dwFileAttributes = -1
                * the file does not exist
                EXIT
            ENDIF

            IF dwFileAttributes > 0
                IF '+R' $ tcAttrib
                    dwFileAttributes = BITOR(dwFileAttributes, FILE_ATTRIBUTE_READONLY)
                ENDIF
                IF '+A' $ tcAttrib
                    dwFileAttributes = BITOR(dwFileAttributes, FILE_ATTRIBUTE_ARCHIVE)
                ENDIF
                IF '+S' $ tcAttrib
                    dwFileAttributes = BITOR(dwFileAttributes, FILE_ATTRIBUTE_SYSTEM)
                ENDIF
                IF '+H' $ tcAttrib
                    dwFileAttributes = BITOR(dwFileAttributes, FILE_ATTRIBUTE_HIDDEN)
                ENDIF
                IF '+D' $ tcAttrib
                    dwFileAttributes = BITOR(dwFileAttributes, FILE_ATTRIBUTE_DIRECTORY)
                ENDIF
                IF '+N' $ tcAttrib
                    dwFileAttributes = BITOR(dwFileAttributes, FILE_ATTRIBUTE_NORMAL)
                ENDIF
                IF '+T' $ tcAttrib
                    dwFileAttributes = BITOR(dwFileAttributes, FILE_ATTRIBUTE_TEMPORARY)
                ENDIF
                IF '+C' $ tcAttrib
                    dwFileAttributes = BITOR(dwFileAttributes, FILE_ATTRIBUTE_COMPRESSED)
                ENDIF

                IF '-R' $ tcAttrib AND BITAND(dwFileAttributes, FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY
                    dwFileAttributes = dwFileAttributes - FILE_ATTRIBUTE_READONLY
                ENDIF
                IF '-A' $ tcAttrib AND BITAND(dwFileAttributes, FILE_ATTRIBUTE_ARCHIVE) = FILE_ATTRIBUTE_ARCHIVE
                    dwFileAttributes = dwFileAttributes - FILE_ATTRIBUTE_ARCHIVE
                ENDIF
                IF '-S' $ tcAttrib AND BITAND(dwFileAttributes, FILE_ATTRIBUTE_SYSTEM) = FILE_ATTRIBUTE_SYSTEM
                    dwFileAttributes = dwFileAttributes - FILE_ATTRIBUTE_SYSTEM
                ENDIF
                IF '-H' $ tcAttrib AND BITAND(dwFileAttributes, FILE_ATTRIBUTE_HIDDEN) = FILE_ATTRIBUTE_HIDDEN
                    dwFileAttributes = dwFileAttributes - FILE_ATTRIBUTE_HIDDEN
                ENDIF
                IF '-D' $ tcAttrib AND BITAND(dwFileAttributes, FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY
                    dwFileAttributes = dwFileAttributes - FILE_ATTRIBUTE_DIRECTORY
                ENDIF
                IF '-N' $ tcAttrib AND BITAND(dwFileAttributes, FILE_ATTRIBUTE_NORMAL) = FILE_ATTRIBUTE_NORMAL
                    dwFileAttributes = dwFileAttributes - FILE_ATTRIBUTE_NORMAL
                ENDIF
                IF '-T' $ tcAttrib AND BITAND(dwFileAttributes, FILE_ATTRIBUTE_TEMPORARY) = FILE_ATTRIBUTE_TEMPORARY
                    dwFileAttributes = dwFileAttributes - FILE_ATTRIBUTE_TEMPORARY
                ENDIF
                IF '-C' $ tcAttrib AND BITAND(dwFileAttributes, FILE_ATTRIBUTE_COMPRESSED) = FILE_ATTRIBUTE_COMPRESSED
                    dwFileAttributes = dwFileAttributes - FILE_ATTRIBUTE_COMPRESSED
                ENDIF

                * setting selected attributes
                lnRet    = fb2p_SetFileAttributes(tcFileName, dwFileAttributes)
            ENDIF

        CATCH TO loEx
            THROW

        ENDTRY

        RETURN lnRet
    ENDPROC

[Fernando D. Bozzo]

Olvidé un pedacito:

Dentro de la misma, al principio, agregale esto (es fundamental):

DECLARE INTEGER 'GetFileAttributesEx' IN Win32API AS fb2p_GetFileAttributesEx STRING  lpFileName, INTEGER fInfoLevelId, STRING  @ lpFileInformation

Saludos.-

[RickDeCastro]

Excelente Fernando. Gracias.

La probaré.

Saludos

---
Ricardo De Castro Aquino
Asunción - Paraguay

[RickDeCastro]

Fernandooo,

Me faltó la "fb2p_SETFileAttributes" también, ... 8|
¿La tienes por ahí? jejeje

Saludos atribuibles
---
Ricardo De Castro A.
Asunción - Paraguay

[Fernando D. Bozzo]

Ups! Perdón, acá va:

        DECLARE SHORT 'SetFileAttributes' IN Win32API AS fb2p_SetFileAttributes STRING tcFileName, INTEGER dwFileAttributes

Saludos.-

[RickDeCastro]

Ufff, ahora me salta un error de "cantidad de parámetros incorrecta", supongo que es en la función GETFile...
Pero tranquilo que ya encontré la que estaba buscando y esa sí me funcionó.
Gracias por la paciencia.
Saludos resueltos

---
Ricardo De Castro A.
Asunción - Paraguay

[Fernando D. Bozzo]

Rick, la función estaba lista para usar. Es la que uso dentro de FoxBin2Prg.

Se usa con 2 parámetros nada mas, el primero es el archivo, y el segundo lleva todos los atributos juntos, con un +-delante, como el primer ejemplo que te puse.

Saludos

[Fernando D. Bozzo]

Otro ejemplo con más permisos:

changeFileAttribute("ruta\archivo", "+H+R+S")
changeFileAttribute("ruta\archivo", "-H-R-S")