[Resolvido] Imprimir todos os ficheiros JPEG ou PNG de uma pasta

Olá a todos.
É possível imprimir num Relatório todas as imagens (.jpeg) existentes numa pasta , sem que as mesmas estejam registadas na tabela?
Obrigado pela vossa atenção.

Cumprimentos

Ola Bruno,

Sem estar numa tabela, desconheco.
Pode ter uma tabela temporaria que cria antes do reporte e adiciona os ficheiros jpeg, ao fechar o relatorio apaga.

Para alimentar a tabela temporaria, veja topicos abaixo:
https://www.maximoaccess.com/t14255-resolvidoler-diretorios
https://www.maximoaccess.com/t913-fso-filesystemobject-para-manipularmos-arquivos
https://www.maximoaccess.com/t11552-resolvidoimportar-varios-arquivos-txt-de-uma-so-vez
https://www.maximoaccess.com/t6379-resolvidolistbox-listar-ficheiros-pdf-contidos-numa-pasta-dos-meus-documentos

Abraco

Olá Álvaro,
Obrigado por dispensar mais uma vez o seu tempo, ainda por cima ao fim de semana.
Vou estudar os Links e depois dou o retorno.
Muito Obrigado.

Cumprimentos e Bom fim de semana.

Bruno Gordino

Olá Bruno, obrigado pelo retorno.

Veja este aqui na mensagem n. 5
https://www.maximoaccess.com/t27725-importacao-de-arquivos-txt

Será alterar de TXT para JPEG e onde está a importar, altere para consulta adicionar a tabela temporária.

Abraço

Bruno,

de que quantidade máxima de imagens teria essa pasta ?  

Fiquei na dúvida se vc quer listar apenas os nomes ou exibir a imagem.

Alvaro,

Creio ser possível alimentar diretamente o relatório, com o comando Picture, sem a necessidade de tabela.  Imagino que possamos utilizar um loop, com o Do While, para percorrer a pasta e então ir alimentando aos quadros.

Sucesso!

Boa tarde Sr. Avelino e muito obrigado pelo seu tempo.
O que preciso é que todos os ficheiros ".jpg" ou ".png" que estejam na pasta, no máx. 200 imagens, sejam exibidos num relatório.
Estou a estudar o link https://www.maximoaccess.com/t14255-resolvidoler-diretorios que o Sr. Álvaro me passou, para registar os caminhos numa tabela.
Optei por registá-los numa tabela temporária para depois aparecerem no Relatório.
Estou a ir no caminho certo?

Cumprimentos

Bruno Gordino

Olá a todos,

Avelino Sampaio, com o loop podemos obter os arquivos.
Mas para ser sincero, não estou a ver a forma de colocar num relatório.
Poderia mostrar o caminho das pedras.

Isto é que é ser MaximoAccess

Abraço a todos

Viva a todos os intervenientes,

Já tenho o procedimento completo, só um preciosismo.

No seguinte código cedido pelo Sr. João Paulo https://www.maximoaccess.com/t14255-resolvidoler-diretorios:

Código:

Public Function ContaFicheirosExtraiNome(strCaminho As String, strIncluiSubPastas As Boolean)
'By JPaulo Maximo Access
'Requer a seguinte referência VBA ativa:
'Microsoft Scripting Runtime
'Para chamar a função, deve colocar no pressionar de um botão: Call ContaFicheirosExtraiNome("C:\SuaPasta\",True)
Dim FSO As Object, strPasta As Object, strSubPasta As Object, strFicheiro As Object
Dim strConta As Long, strSQL As String
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set strPasta = FSO.GetFolder(strCaminho)
    'Percorre a drive e extraí o nome das pastas, subPastas e ficheiros
    For Each strFicheiro In strPasta.Files
    
    'Insere na tabela o caminho completo dos ficheiros com as extensões PDF
            If Mid([strFicheiro], InStrRev([strFicheiro], "\") + 1) Like "*.pdf*" Then
                CurrentDb.Execute "INSERT INTO SuaTabela (SeuCampoNaTabela) SELECT '" & strPasta.Path & "\" & strFicheiro.Name & "'"
        strConta = strConta + 1
        Else
        End If
    Next strFicheiro
    'Se existirem subpastas, insere na tabela o caminho completo dos ficheiros
    If strIncluiSubPastas = True Then
        For Each strSubPasta In strPasta.SubFolders
            ContaFicheirosExtraiNome strSubPasta.Path, True
        Next strSubPasta
    End If
    Set strFicheiro = Nothing
    Set strPasta = Nothing
End Function

Onde coloco o contador total de caminhos?

Código:

ContaFicheiros = strPasta.Files.Count
MsgBox "Encontrados " & ContaFicheiros & " ficheiros." & vbNewLine & " na pasta " & strCaminho, vbInformation

Experimentei assim e surge-me sempre a msgbox 2 vezes caso existam subpastas c/ ficheiros:

Código:

MsgBox "Encontrados " & strConta & " ficheiros." & vbNewLine & " na pasta " & strCaminho, vbInformation

Cumprimentos

Bruno Gordino

Olá Bruno,

Fiz uns ajustes ao código, pois chamava a mesma função e limpava o contador, veja como fica:

Código:

Public Function ContaFicheirosExtraiNome(strCaminho As String, strIncluiSubPastas As Boolean, Optional lngConta As Long = 0)
'By JPaulo Maximo Access
'Requer a seguinte referência VBA ativa:
'Microsoft Scripting Runtime
'Para chamar a função, deve colocar no pressionar de um botão: Call ContaFicheirosExtraiNome("C:\SuaPasta\",True)
'01-06-2018 Ajuste para contador incluir nas sub pastas - ahteixeira (2018)
Dim fso As Object, strPasta As Object, strSubPasta As Object, strFicheiro As Object
Dim strSQL As String
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set strPasta = fso.GetFolder(strCaminho)
    'Percorre a drive e extraí o nome das pastas, subPastas e ficheiros
    For Each strFicheiro In strPasta.Files
    
    'Insere na tabela o caminho completo dos ficheiros com as extensões jpeg e png
        If Mid([strFicheiro], InStrRev([strFicheiro], "\") + 1) Like "*.jpeg*" Or _
           Mid([strFicheiro], InStrRev([strFicheiro], "\") + 1) Like "*.png*" Then
                CurrentDb.Execute "INSERT INTO SuaTabela (SeuCampoNaTabela) SELECT '" & strPasta.Path & "\" & strFicheiro.Name & "'"
                lngConta = lngConta + 1
        Else
        End If
    Next strFicheiro
    
    'Se existirem subpastas, insere na tabela o caminho completo dos ficheiros
    If strIncluiSubPastas = True Then
        For Each strSubPasta In strPasta.SubFolders
            ContaFicheirosExtraiNome strSubPasta.Path, True, lngConta
        Next strSubPasta
    End If
    
    ContaFicheirosExtraiNome = lngConta
    
    Set strFicheiro = Nothing
    Set strPasta = Nothing
End Function

Também ajustei para processar apenas ficheiros do tipo JPEG e PNG.

Abraço

Boa tarde Sr. Álvaro

É isto, é isto mesmo!
Andava a tentar e até já tinha lançado uma Variável Global para somar as contagens, mas tudo uma grande "trapalhada" comparado c/ a sua solução.

Nunca iria chegar ao:

Código:

..., Optional lngConta As Long = 0)

Não me querendo repetir, mas já estando a fazê-lo, o meu muito obrigado mais uma vez Sr. Álvaro ... já sei, desculpe o "Sr."
Até uma próxima.

Cumprimentos e Bom Fim de Semana

Bruno Gordino

Olá Bruno, fico feliz por ter ajudado.

Obrigado pelo retorno, o fórum agradece.

Apesar de resolvido, ficamos aguardar se o colega Avelino Sampaio, pode dar alguma dica de como fazer sem recorrer à tabela temporária.

Com o MaximoAccess é sempre aprender.