[Resolvido]Salvar e enviar imagem para local especifiado.

Gostaria que me ajudasse, tenho um formulário, onde cadastro pessoas e insiro fotos, queria que ao inserir a foto no form1, fosse criado uma cópia da mesma fotográfia e enviada para um determinado local, exemplo:enviado para C:Cadastro\fotográfias
Segue o aplicativo anexado!

Com esse código, do (Harysohn)
consegui mover as imagens de uma pasta de um determinado locala parao o outro, mas não é bem isso que quero, quero mover a imagem que está no registro atual do formulário para a unidade C:cadastro\fotográfias.
veja o código do Harysohn

Private Sub Mover_Arquivos_Click()

'Move Arquivos de uma pasta para Outra
Dim fso
Dim strOrigem As String, strDestino As String
strOrigem = "foto.jpeg"
strDestino = "C:\cadastro\fotográfias"
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
'Se é invalida a pasta de Origem ou Destino
If Not fso.FolderExists(strOrigem) Then
MsgBox strOrigem & " Caminho invalido para a pasta de origem.", vbInformation, "Erro"
ElseIf Not fso.FolderExists(strDestino) Then
MsgBox strDestino & " Caminho invalido para a pasta de destino", vbInformation, "Erro"
'Se não há arquivos a serme movidos
Else
fso.MoveFile (strOrigem & "\*.*"), strDestino
End If
If Err.Number = 53 Then MsgBox "Arquivos de Digital não encontrados..."

'Se os arquivos forem movidos com sucesso aviso
If fso.MoveFile(strOrigem & "\*.*") Then
MsgBox strOrigem & " ARQUIVOS MOVIDOS COM SUCESSO.", vbInformation, "Concluído"
End If

End Sub

Se é deste post que você está a falar, leia até ao fim que a solução está lá mesmo;

http://maximoaccess.forumeiros.com/t1862-resolvidomover-arquivos-atraves-do-access

JPaulo, boa noite
primeiramente obrigado pela indicação mas, não consegui montar esse código, não consegui infelismente, por isso postei o bd... me da uma ajuda se possivel! Eu sei que para você isso facil, mas para mim não é, agradeço antecipado e um abraço.

Norberto vou postar, um abraço...

Norberto,
nem alterei nome das pastas e diretórios, quero salvar as fotos no local C:\Cadastro\fotográfias, quero que cada funcionário que eu cadastre, quando eu clicar em salvar, ou no botão, seja salvo a foto nessa pasta,obrigado e aguardo resposta.

Norberto concordo com vc sobre as alterações.
eu mudei a rotina
Private Sub btnLocalizar_Click()
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Cadastro\Fotografias "
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.LocalFoto = strCaminho
Me.Foto.Picture = Me.LocalFoto
End If
End Sub
só que ainda continua abrindo a janela em meus documentos e não abrindo em C:\cadastro\fotografias

Norberto graças á você essa rotina funcionou ficou assim:

Private Sub btnLocalizar_Click()
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Cadastro\Fotografias "
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.LocalFoto = strCaminho
Me.Foto.Picture = Me.LocalFoto
End If
End Sub


Agora o botão abre o local que você sugeriu C:\cadastro\fotografias

Norberto

Agora basta salvar as fotos dos funcionários na pasta (C:\Cadastro\fotografias) e ao clicar no botão inserir foto ele vai certinho na pasta C:\cadastro\fotografias, como você sugeriu.

Fiquei tão contente, meu amigo você é um grande professor, tem conhecimento e tem o dom de ensinar, dou o tópico por encerrado, e te agradeço um grande abraço e bom final de semana!