MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Enviar arquivo para lixeira

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    Enviar arquivo para lixeira Empty Enviar arquivo para lixeira

    Mensagem  HARYSOHN em 2/3/2013, 20:36

    Private Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As Long
    End Type

    Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
    Private Const FO_DELETE = &H3
    Private Const FOF_ALLOWUNDO = &H40

    'Para usá-la use a função abaixo
    Public Sub ApagarParaLixeira(Arquivo As String)
    If Dir$(Arquivo) = Empty Then
    MsgBox "O arquivo informado não existe, talvez você não informou todo o caminho corretamente, ou o nome correto, inclusive com a extensão do arquivo, VERIFIQUE!!!", vbCritical, "Erro Excluindo Arquivo..."
    Exit Sub
    End If

    Dim op As SHFILEOPSTRUCT

    With op
    .wFunc = FO_DELETE
    .pFrom = Arquivo
    .fFlags = FOF_ALLOWUNDO
    End With
    SHFileOperation op
    End Sub




    Enjoy!!!

    *****************************************************************************************************************



    Repositório de Exemplos Ms Access
    Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para
    todos os Utilizadores Cadastrados.
    Não tirar duvidas nesta sala.

      Data/hora atual: 4/12/2020, 10:23