COPIAR IMAGEM PARA UMA PASTA

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

COPIAR IMAGEM PARA UMA PASTA

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#443452 - 29/12/2014 00:42:13

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


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 #443456 - 29/12/2014 09:57:43

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


assim amigo

Private Sub imgAlterar_Click()
Dim NomeFoto() As String
        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)
        NomeFoto = Split(CommonDialog2.FileName,"\")
        FotoAlt = App.Path & "\Fotos\" & NomeFoto(UBound(NomeFoto))
        FileCopy CommonDialog2.Filename, FotoAlt
        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


________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



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


Tópico encerrado, respostas não sao permitidas
Encerrado por MARIOANDRADE em 29/12/2014 18:01:18