[Resolvido]Informações de arquivos de musicas

O explorer apresenta diversos dados sobre as músicas, como nome, título, artista participante e álbum. Consigo acessar o nome, pelo módulo do acces, a partir de FileSystemObject folder.files.name, gostaria de saber como acessar os outros "atributos", como título, álbum e artista participante.

Olá Sérgio, seja bem-vindo ao fórum.

Pode obter a informação pretendida através do "GetDetailsOf"
No tópico abaixo é utilizado para obter o tempo total da musica:
https://www.maximoaccess.com/t33838-resolvidoabrir-ficheiros-em-loop

No link abaixo tem um excelente exemplo para obter atributos de vários tipos de ficheiros:
access-programmers.co.uk/forums/threads/obtaining-extended-file-properties-attributes-using-vba.294548/

Copiar link e colar no navegador

Abraço

obrigado, amigo. as primeiras tentativas indicam que vai dar certo para o que eu quero. vou continuar testando !!

Olá Sérgio,

Sim, creio que vai conseguir.
Se tiver dúvidas, estamos cá para ajudar.
Se conseguir sozinho e depois poder partilhar pequeno exemplo, o fórum agradece.

Parta dar o tópico como Resolvido, veja como se faz:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Caro amigo,

Consegui fazer o que eu estava querendo, segue a rotina, que importa as informações para uma tabela, de nome plan4 :
If MsgBox("tem certeza que quer importar um disco ?", vbYesNo) = vbNo Then Exit Sub
On Error GoTo 1
Dim a, b, c
Dim dbs As Database, qdfnew As QueryDef
Dim objShell As New Shell
Dim objFolder As Folder3
Dim objFile As FolderItem
Dim strFolderPath As String, strFileName As String

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("select plan4.* from plan4;")

If DCount("título", "plan4") > 0 Then
If MsgBox("deleta os registros anteriores?", vbYesNo) = vbYes Then
DoCmd.RunSQL "DELETE Plan4.* FROM Plan4;"
End If
End If


With rst

a = InputBox("entre com o nome da pasta")

strFolderPath = "D:\baixados\musicas\" & a & "\"

Set objFolder = objShell.NameSpace(strFolderPath)

For Each objFile In objFolder.Items
.AddNew
.[nome de arquivo] = objFolder.GetDetailsOf(objFile, 0)
.artista = objFolder.GetDetailsOf(objFile, 13)
.Álbum = objFolder.GetDetailsOf(objFile, 14)
.Título = objFolder.GetDetailsOf(objFile, 21)
.compositor = objFolder.GetDetailsOf(objFile, 220)
.genero = objFolder.GetDetailsOf(objFile, 16)
.local = objFolder.GetDetailsOf(objFile, 180)
.pasta = objFolder.GetDetailsOf(objFile, 176)



.Update
Next objFile
End With
rst.Close

A localização das informações não é muito óbvia, mesmo com a tabela que vc me disponibilizou, assim recomendo fazer uma pesquisa anteriormente para confirmar se as informações que quer está no item do objfile. No caso acima, tive que fazer várias tentativas até que as informações que apareciam no explorer se refletissem de forma idêntica na minha tabela !!

Obrigado, mais uma vez !!
Sergio de Paula

Faltou marcar o encerramento do tópico.

desculpe-me amigo, não sabia, foi minha primeira postagem !!

Olá a todos

Sérgio, fico feliz por ter conseguido, obrigado pela partilha.
O fórum agradece.