Información sobre archivos

[Geckox]

Hola amigos, he estado utilizando este código de "EXCELeINFO – Excel vba e información - Otro sitio más de ITpro Blogs" para listar archivos de una carpeta:

Sub ListFiles()

    iRow = 11

    Call ListMyFiles(Range("C7"), Range("C8"))

End Sub

'

Sub ListMyFiles(mySourcePath, IncludeSubfolders)

    Set MyObject = New Scripting.FileSystemObject

    Set mySource = MyObject.GetFolder(mySourcePath)

    On Error Resume Next

    For Each myFile In mySource.Files

        If Right(myFile.Name, 3) = "mp3" Then

            iCol = 2

            Cells(iRow, iCol).Value = myFile.path

            iCol = iCol + 1

            Cells(iRow, iCol).Value = myFile.Name

            iCol = iCol + 1

            Cells(iRow, iCol).Value = Right(myFile.Name, 3)

            iCol = iCol + 1

            Cells(iRow, iCol).Value = myFile.Size

            iCol = iCol + 1

            Cells(iRow, iCol).Value = myFile.DateLastModified

            iRow = iRow + 1

        Else

        End If

    Next

    If IncludeSubfolders Then

        For Each mySubFolder In mySource.SubFolders

            Call ListMyFiles(mySubFolder.path, True)

        Next

    End If

End Sub[/CODE]

Quería extraer mas información de los archivos.

¿Sabeis donde podría conseguir un listado completo de la información de un archivo que se pueden obtener con este método? del tipo "myFile.DateLastModified".

Porque por ejemplo si es un archivo jpg, podríamos obtener el nombre de la cámara, el diafragma, etc y si es un mp3 se podrían obtener los tags. Pero no se como se llamarían para incluirlos en el ejemplo.

Un saludo

[Antoni]

Aunque ya te he contestado en otro foro dejo un enlace por si el tema interesa a alguien.

Listar atributos de archivos y carpetas (Todos) | Ayuda Excel

[Geckox]

Gracias Macro Antonio, por las prisas lo pregunté en dos foros.

Un saludo