COPIAR IMAGEM PARA UMA PASTA

MARIOANDRADE 29/12/2014 00:42:13
#443452
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.
MARCELO.TREZE 29/12/2014 09:57:43
#443456 Resposta escolhida
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
Tópico encerrado , respostas não são mais permitidas
Voltar