MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Informações de arquivos de musicas

    avatar
    sergio de paula
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/04/2020

    [Resolvido]Informações de arquivos de musicas Empty [Resolvido]Informações de arquivos de musicas

    Mensagem  sergio de paula em 17/5/2020, 21:06

    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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    [Resolvido]Informações de arquivos de musicas Empty Re: [Resolvido]Informações de arquivos de musicas

    Mensagem  ahteixeira em 19/5/2020, 11:13

    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
    avatar
    sergio de paula
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/04/2020

    [Resolvido]Informações de arquivos de musicas Empty Re: [Resolvido]Informações de arquivos de musicas

    Mensagem  sergio de paula em 19/5/2020, 14:03

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    [Resolvido]Informações de arquivos de musicas Empty Re: [Resolvido]Informações de arquivos de musicas

    Mensagem  ahteixeira em 20/5/2020, 04:16

    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
    avatar
    sergio de paula
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/04/2020

    [Resolvido]Informações de arquivos de musicas Empty Re: [Resolvido]Informações de arquivos de musicas

    Mensagem  sergio de paula em 23/5/2020, 16:01

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 21/11/2016

    [Resolvido]Informações de arquivos de musicas Empty Re: [Resolvido]Informações de arquivos de musicas

    Mensagem  DamascenoJr. em 23/5/2020, 17:24

    Faltou marcar o encerramento do tópico.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    sergio de paula
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/04/2020

    [Resolvido]Informações de arquivos de musicas Empty Re: [Resolvido]Informações de arquivos de musicas

    Mensagem  sergio de paula em 24/5/2020, 09:47

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    [Resolvido]Informações de arquivos de musicas Empty Re: [Resolvido]Informações de arquivos de musicas

    Mensagem  ahteixeira em 24/5/2020, 15:07

    Olá a todos

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

    cheers

      Data/hora atual: 1/12/2020, 10:16