Salvando fotografias

Tenho um programa para armazenar dados de pessoas presas com o nome AcervoFotograficoDelegacia

Criei um botão para inserir fotografias de pessoas presas e seus dados pessoais. Ocorre que este programa é executado por muita gente e que constantemente alguém apaga ou move a fotografia da pasta indicada, fazendo com que ao acessar o registro da pessoa pesquisada sua correspondente fotografia não seja exibida. Além disso, muitas pessoas, ao inserir a fotografia, não tomam o cuidado de antes salvá-las na pasta indicada: C:\SystemAcervoFotograficoDelegacia\FotografiasAcervoFotograficoDelegacia

Minha intenção:
No momento de inserir a fotografia, o usuário apontaria para ela que poderia estar em qualquer pasta, pendrive, HD, CD, etc e automaticamente ela seria copiada para a pasta FotografiasAcervoFotograficoDelegacia e assim, tirasse a necessidade de salvá-las antes nesta pasta para depois inseri-la no sistema.

Ainda não consegui realizar esse processo.


Código do Botão Inserir Foto

Private Sub BuscarFoto_Click()
Dim s As String
's = OpenCommDlg()
s = fncLocalizarArquivo()
If s <> "" Then
   foto = s
   foto_AfterUpdate
End If
End Sub

----------------------------------------

Ao carregar do Form

Private Sub foto_AfterUpdate()
Dim s As String
s = Nz(foto.Value, "")
If s <> "" Then s = IIf(Dir(s) = "", "", s)
On Error Resume Next
Imagem3.Picture = s
If Err.Number <> 0 Then Imagem3.Picture = ""
On Error GoTo 0
End Sub

Amigo, de uma olhada nesse Post aqui:
https://www.maximoaccess.com/t26710-resolvidovincular-foto-por-cadastro-da-matricula

Tem exatamente o que vc precisa.

Olá amigo Veríssimo! Como anda sua Duvida? A dica Resolveu sua situação?

Por favor, se a duvida foi solucionada, por favor marque o tópico como resolvido:

Veja como Fazer