Possuo um formulário com foto e essa foto está arquivada em um endereço FTP. Ao mudar a foto preciso excluir a antiga no endereço FTP, antes da atualização. Por favor, alguém pode me informar o comando VBA para excluir esse aquivo (foto) no FTP?
- Código:
'pessoas_imagem nome do campo que armazena o nome do arquivo. Ex.: ronaldo.jpg
Private Sub btDelete_Click()
10 On Error GoTo btDelete_Click_Erro
20 If IsNull(Me.pessoas_imagem) Or Me.pessoas_imagem = "" Then
30 MsgBox "Não existe imagem para ser excluída!"
40 DoCmd.CancelEvent
50 Exit Sub
60 Else
70 Me.pessoas_imagem.Locked = False
80 Me.AllowEdits = True
90 Me.pessoas_imagem = Empty 'esvaziando o campo
100 End If
110 Me.mImagem.Picture = Empty
120 btSalvar_Click
130 On Error GoTo 0
140 Exit Sub
btDelete_Click_Erro:
150 MsgBox "Ocorreu um erro na aplicação." & vbCr & "Relate os dados abaixo ao suporte." & vbCr & _
"Erro Nº: " & Err.Number & vbCr & _
"Descrição do erro: " & Err.Description & vbCr & _
"Módulo: " & "Form_frmCadastroDePessoas" & vbCr & _
"Procedimento: " & "btDelete_Click" & vbCr & _
"Linha: " & Erl, vbExclamation, NomeAplicativo
End Sub