locked
Como importar a primeira imagem JPG que se encontra em um diretório, usando VBA? RRS feed

  • Pergunta

  • Bom dia,

    sei como importar uma imagem que está em algum diretório, desde que eu saiba o nome do arquivo.
    Porém agora necessito que o sistema busque a primeira imagem que existir em um determinado diretório, independente do nome.
    Como fazer isso?

    grato
    quinta-feira, 26 de março de 2009 13:37

Respostas

  • Você pode usar esta função para retornar o nome do arquivo de imagem de uma determinada pasta. Use este nome como origem de um controle Image.

    Function ArquivoImagem(strFolder As String) As String
    Dim strFiles As String
    
    strFiles = Dir(strFolder & "\*", vbArchive)
    
    Do Until Len(strFiles) = 0
        If InStr(1, strFiles, ".jpg", vbTextCompare) > 0 Or InStr(1, strFiles, ".bmp", vbTextCompare) > 0 Then
            ArquivoImagem = strFiles
            Exit Function
        End If
        strFiles = Dir()
    Loop
    
    End Function

    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
    • Marcado como Resposta BladeRunner2019 quarta-feira, 15 de julho de 2009 14:29
    quarta-feira, 1 de abril de 2009 02:18
    Moderador

Todas as Respostas

  • Você precisa armazenar a imagem ou apenas exibi-la em um formulário?

    Qual versão do Access? Qual tipo de campo na tabela?
    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
    sábado, 28 de março de 2009 20:59
    Moderador
  • Bom dia Luis,

    é apenas para exibir no formulário.
    A versão do Access é a 2000.
    terça-feira, 31 de março de 2009 11:18
  • Você pode usar esta função para retornar o nome do arquivo de imagem de uma determinada pasta. Use este nome como origem de um controle Image.

    Function ArquivoImagem(strFolder As String) As String
    Dim strFiles As String
    
    strFiles = Dir(strFolder & "\*", vbArchive)
    
    Do Until Len(strFiles) = 0
        If InStr(1, strFiles, ".jpg", vbTextCompare) > 0 Or InStr(1, strFiles, ".bmp", vbTextCompare) > 0 Then
            ArquivoImagem = strFiles
            Exit Function
        End If
        strFiles = Dir()
    Loop
    
    End Function

    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
    • Marcado como Resposta BladeRunner2019 quarta-feira, 15 de julho de 2009 14:29
    quarta-feira, 1 de abril de 2009 02:18
    Moderador