COPIAR IMAGEM PARA UMA PASTA

MARIOANDRADE 27/12/2014 19:48:12
#443433
Meus amigos, eu uso o código abaixo para inserir imagens no banco de dados e acessa-la de acordo com o cominho onde a imagem se encontra.
Eu gostaria que ao executar este código, a imagem fosse copiada para a pasta (App.path & [Ô]\Fotos[Ô]) e o FotoAlt passasse a ser (App.path & [Ô]\Fotos\CommonDialog2.FileName[Ô]) dessa forma ficaria acessível na rede para todos pois a imagem estaria em um caminho comum para todos. 
Private Sub imgAlterar_Click()
        CommonDialog2.Filter = [Ô]Arquivo do tipo (*.jpg)|*.jpg|Todos Arquivos (*.*)|*.*|[Ô]       
        CommonDialog2.ShowOpen
        FotoAlt = Clipboard.GetData
    If FotoAlt <> [Ô][Ô] Then
    On Error GoTo Erro
        imgAlterar.Picture = LoadPicture(CommonDialog2.FileName)
        FotoAlt = (CommonDialog2.FileName)
        ConnectDB
            rs.Open [Ô]Select * from tblCad where Cod = [Ô] & ListAlterar.SelectedItem, db, 3, 3
            rs(19) = [Ô][Ô] & FotoAlt
            rs.Update
        rs.Close: Set rs = Nothing
        db.Close: Set db = Nothing
		Exit Sub    
    Else
        FotoAlt = (App.path & [Ô]\Fotos\Usuario.jpg[Ô])
		Exit Sub
    End If
Erro:
        FotoAlt = (App.path & [Ô]\Fotos\Usuario.jpg[Ô])
End Sub


Desde já agradeço a todos que possam ajudar.
OMAR2011 27/12/2014 20:38:36
#443437 Resposta escolhida
O lugar correto é VB/VBA.
Marcelo Treze já postou como grava imagem.
Tópico encerrado , respostas não são mais permitidas
Voltar