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]Oculta pasta, exibir pasta ,deletar pasta

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 869
    Registrado : 12/04/2016

    [Resolvido]Oculta pasta, exibir pasta ,deletar pasta Empty [Resolvido]Oculta pasta, exibir pasta ,deletar pasta

    Mensagem  marcelo marques 2/12/2017, 08:43

    bom dia pessoal estou aqui a procura de um código do qual oculta uma determinada pasta na unidade "C" também mostrasse novamente através de um botão, e também excluisse esta pasta através de outro botão será que é possível



    desde ja obrigado

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Oculta pasta, exibir pasta ,deletar pasta Empty Re: [Resolvido]Oculta pasta, exibir pasta ,deletar pasta

    Mensagem  ahteixeira 2/12/2017, 13:16

    Olá Marcelino,

    Segue o código para as tres questões, será só ajustar.
    Código:
    Option Compare Database
    'AHTEIXEIRA 2017 para MaximoAccess
    Private Sub cmdMostrarPasta_Click()
        SetAttr "C:\MaximoAccess", vbNormal
    End Sub

    Private Sub cmdOcultarPasta_Click()
        SetAttr "C:\MaximoAccess", vbHidden
    End Sub

    Private Sub cmdApagaPasta_Click()
        RmDir "C:\MaximoAccess"
    End Sub

    Nota, não está a fazer tratamento de erros a pasta, no caso do exemplo C:\MaximoAccess , deve existir.

    Abraço
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 869
    Registrado : 12/04/2016

    [Resolvido]Oculta pasta, exibir pasta ,deletar pasta Empty Re: [Resolvido]Oculta pasta, exibir pasta ,deletar pasta

    Mensagem  marcelo marques 2/12/2017, 19:13

    boa tarde ahteixeira ficou perfeito, muito obrigado
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Oculta pasta, exibir pasta ,deletar pasta Empty Re: [Resolvido]Oculta pasta, exibir pasta ,deletar pasta

    Mensagem  ahteixeira 2/12/2017, 22:38

    Olá Marcelino,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 25/1/2022, 16:46