MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Deletar um arquivo em um endereço FTP

    avatar
    ronaldofacre
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 19/09/2015

    [Resolvido]Deletar um arquivo em um endereço FTP Empty [Resolvido]Deletar um arquivo em um endereço FTP

    Mensagem  ronaldofacre 18/3/2018, 02:58

    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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Deletar um arquivo em um endereço FTP Empty Re: [Resolvido]Deletar um arquivo em um endereço FTP

    Mensagem  Alvaro Teixeira 22/3/2018, 15:26


      Data/hora atual: 23/11/2024, 11:59