COPIAR IMAGEM PARA UMA PASTA

 Tópico anterior Próximo tópico Novo tópico

COPIAR IMAGEM PARA UMA PASTA

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#443433 - 27/12/2014 19:48:12

MARIOANDRADE
SANTO ANTONIO DE JESUS
Cadast. em:Abril/2012


Última edição em 27/12/2014 19:49:02 por M4R10

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.


Cursos de Excel e VB6:
cursoexcelvba.com.br



Resposta escolhida #443437 - 27/12/2014 20:38:36

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


O lugar correto é VB/VBA.
Marcelo Treze já postou como grava imagem.




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MARIOANDRADE em 28/12/2014 00:56:19