[Resolvido]Identificar o Autor de um arquivo

Boa noite a todos.

Procurei no fórum mas nao encontrei algo que fale do assunto.
Alguem poderia me fornecer algum exemplo de código VBA de como identificar o Autor descrito nas propriedades de qualquer tipo de arquivo?

Obrigado.

Olá, dê uma olhada nesse exemplo. Nos botões de abrir arquivo, excluir pasta ou arquivo, copiar, colar, etc, tem uma função que pode ser adaptada, acrescentando algo como:

nArq.Author

Acredito que dê certo.

Boa noite Criquio.

Baixei o seu exemplo e dei uma verificada, ele vai me ajudar em muito no que quero desenvolver, porém nao consegui descobrir como obter a informacao do autor de cada arquivo, vasculhei na internet e nao encontrei nada a respeito, encontrei muita coisa falando sobre o objeto FSO mas nada a respeito de como pegar esta informacao. Será que nao tem como fazer isso?

Alguém ai pra dar uma forcinha?

Boa tarde, Edson

Não peça melhor...
Descarregue o DSOFile aqui http://www.microsoft.com/en-us/download/details.aspx?id=8422
Active a referência DSOFile
e chame esta função que lhe criei:
Function Autor(EnderecoCompleto As String) As String
'Elaborada por Alexandre Neves, em 2012-06-09.
'www.esnips.com\web\alexandreneves
Dim objFile
Set objFile = CreateObject("DSOFile.OleDocumentProperties")
objFile.Open (EnderecoCompleto)
Autor = objFile.SummaryProperties.Author
End Function

Bom dia Alexandre.

Fiz conforme vc falou mas infelizmente nao funcionou pelo motivo do meu SO ser Windows 7 - 64 bits e pelo o que pesquisei nao funciona com 64 bits.

Mas mesmo assim muito obrigado.

Boa tarde, Edson
Veja se lhe ajuda: http://social.msdn.microsoft.com/Forums/en/vsto/thread/112b300b-06e2-4b95-b811-1dd6726ef410

Bom dia Alexandre.

Mais uma vez muito obrigado, vou ter que tirar um tempinho para poder traduzir o site e nesse momento está meio complicado, assim que tiver um retorno posto o resultado.

Abraço.