CRUD Propiedades de archivo

tonny-sanjiao commented 2 years ago

Descripción del problema: Alguien tiene algo para leer, modificar y crear propiedades de un archivo de windows? Igual que los mp3 que puedes poner el artista, el album, etc, pues de un documento añadir otras propiedades o modificar las que hay.

Gracias

Maverick1965 commented 2 years ago

Hola Mira a ver sí esto te puede ayudar https://www.mrexcel.com/board/threads/read-write-extended-file-properties-solved.474220/

lunasoft2001 commented 2 years ago

Investigando encuentro: Hay objetos file

Hay objetos filesystemobject

El nlos enlaces aparece lo que se puede obtener y/o editar. Por ejemplo para filesystemobject: Captura de Pantalla 2022-07-18 a las 9 01 41

A partir de ahí solo tienes que jugar con el código. Por ejemplo el siguiente código te devuelve el nombre y el tipo de los archivos de una carpeta:

Sub ShowFileList(folderspec)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 In fc
        s = s & f1.Name & vbTab & f1.Type
        s = s & vbCrLf
    Next
    MsgBox s
End Sub

Para los atributos de un archivo, tienes información en https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/attributes-property

tonny-sanjiao commented 2 years ago

Hola, Pero ésto ya lo conocía y no me sirve. Quiero añadir propiedades como nombre del autor, o bien dirección o código postal, son propiedades personales mías. Además de querer modificar las fechas de creación, modificación o acceso. Un saludo y muchas gracias por la respuesta, lo agradezco mucho. T.

ACCESSoTOTAL / Dudas

CRUD Propiedades de archivo #7