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


    Eliminar/Delete ficheiro oculto

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Eliminar/Delete ficheiro oculto Empty Eliminar/Delete ficheiro oculto

    Mensagem  Alvaro Teixeira 4/3/2021, 11:01

    Olá a todos,

    Partilho exemplo para eliminar ficheiro, mesmo que seja oculto.

    Código:
    Function fncApagaFicheiro(strCaminho As String) As Boolean
    'Álvaro Teixeira (ahteixeira) 2021 para MaximoAccess
    'Verifica se existe ficheiro, mesmo sendo oculto e apaga
    'Pode ser necessária referencia a "Microsoft Scripting Runtime"

    'Exemplo de chamada da função:
    'fncApagaFicheiro("c:\MaximoAccess\Ficheiro.txt")

        Dim FSO As Object
        Set FSO = CreateObject("scripting.filesystemobject")
        If FSO.FileExists(strCaminho) Then FSO.DeleteFile (strCaminho)

    End Function

    Abraço e bons estudos Wink

    Assis e crysostomo gostam desta mensagem


      Data/hora atual: 8/11/2024, 01:25