Bom dia meus amigos.
Uso o código abaixo para inserir imagem em form, só que para excluir a imagem inserida não sei como proceder. Por exemplo, se eu apagar o caminho da imagem ela logicamente some do form. O que gostaria é que além de sumir do form, também apagasse a imagem da pasta.
O código é esse (Autor: ToPBr)
Dim strCaminho As String, strPastaInicial As String
Dim CopiaSegura As Object
Dim Caminho As String
Dim fso As Object
Dim cam As String
strPastaInicial = "C:\Meus Documentos"
strCaminho = Buscar(Me.hwnd, "Inserir capa", strPastaInicial, "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
cam = CurrentProject.Path & "\Capas\" ' Caminho do bd mais a pasta fotos
' Faz a cópia do arquivo para a pasta do bd e sub pasta Fotos renomeando para jpg
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile strCaminho, cam & Me.RegID.Value & Me.Titulo.Value & ".jpg"
Me.FotoCapa = cam & Me.RegID.Value & Me.Titulo.Value & ".jpg"
Me.Ima.Picture = Me.FotoCapa
End If
End If
Grato
Uso o código abaixo para inserir imagem em form, só que para excluir a imagem inserida não sei como proceder. Por exemplo, se eu apagar o caminho da imagem ela logicamente some do form. O que gostaria é que além de sumir do form, também apagasse a imagem da pasta.
O código é esse (Autor: ToPBr)
Dim strCaminho As String, strPastaInicial As String
Dim CopiaSegura As Object
Dim Caminho As String
Dim fso As Object
Dim cam As String
strPastaInicial = "C:\Meus Documentos"
strCaminho = Buscar(Me.hwnd, "Inserir capa", strPastaInicial, "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
cam = CurrentProject.Path & "\Capas\" ' Caminho do bd mais a pasta fotos
' Faz a cópia do arquivo para a pasta do bd e sub pasta Fotos renomeando para jpg
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile strCaminho, cam & Me.RegID.Value & Me.Titulo.Value & ".jpg"
Me.FotoCapa = cam & Me.RegID.Value & Me.Titulo.Value & ".jpg"
Me.Ima.Picture = Me.FotoCapa
End If
End If
Grato