✔ Programação GLOBAL®: SANDWICH PROJECT 2016 - VBA Access - Importando Fotos de um Diretório

SANDWICH PROJECT 2016 - VBA Access - Importando Fotos de um Diretório - Import Photos from Directory

Talvez precise importar as fotos de um cadastro de funcionários | clientes | fornecedores, ou criar um catálogo, album de fotos, etc... E deseje manter todas as fotos dentro de um arquivo MS Access.

Aprenda: 17 Passos Essenciais para Melhorar seu Código VBA

Isso é recomendável? Não!

É possível? Sim!

Crie uma tabela com a seguinte especificação dentro do seu banco de dados MS Access.

Em seguida crie um módulo como o nome de mdl_Importando_Imagens.

Em seguida cole o código abaixo nele:

Sub ImportPhotosFromDirectory()

' Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardess@gmail.com

' Date: 17/05/2016 - 15:14

' Application: Field Force Dashboard Analysis® - © A&A - In Any Place 2016, Inc. Todos os direitos reservados.

' Company: © A&A - In Any Place 2016, Inc. Todos os direitos reservados.

' Purpose: Import Photos from Directory.

' C:\Users\Photos

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim oFS As New FileSystemObject



Dim oFolder As Folder

Dim oFile As File

Dim nPath As String

Let nPath = "C:\Users\Photos"

Set db = CurrentDb()

Set rs = db.OpenRecordset("tbl_Photos")

Set oFolder = oFS.GetFolder(nPath)

With rs

For Each oFile In oFolder.Files

Debug.Print oFile.Name



.AddNew



Let !PhotoName = oFile.Name

Let !Photo = oFile



.Update

Next oFile

End With

End Sub