adicionando imagem

Olá comunidade, venho com mais uma duvida.

Tenho um form onde cada registro pode ter um foto.

É o seguinte, tem um campo que leva o caminho da foto e um botão do form, "exibir foto", que roda a foto que está no campo onde tem o caminho.

Aí você precisa indicar onde está a foto para que funcione corretamente.

Mas aqui no trabalho, estão pedindo para que você indique a foto, mas que o sistema salve essa foto em uma pasta dentro da pasta do sistema e aí sim indique no campo do caminho.

Podendo assim, a foto ser adicionada apartir de um disquete ou cd. E depois de adicionada possa ser retirado o cd ou disquete e a foto está lá no sistema.

Vou postar como funciona atualmente:

O botão que serve para indicar o caminho:

Private Sub cmdModificar_Click() 'diretorio onde estao as imagens CommonDialog1.InitDir = App.Path CommonDialog1.DefaultExt = "." CommonDialog1.ShowOpen Adodc1.Recordset.Fields("Foto").Value = CommonDialog1.FileNameEnd Sub

E o botão para exibir a foto, caso exista uma foto:

Private Sub cmdExibir_Click() If Adodc1.Recordset("Foto") <> "" Then Dim i& i& = ShellExecute(0, "open", Adodc1.Recordset("Foto"), "", "", SW_SHOW) Else MsgBox ("Sem Foto") End IfEnd Sub

desse jeito só está indicando o caminho. Eu queria que ele salvasse a foto em uma pasta e depois sim a indicasse no caminho. tem como?