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


    Verificar se existe ficheiro oculto

    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

    Verificar se existe ficheiro oculto Empty Verificar se existe ficheiro oculto

    Mensagem  Alvaro Teixeira 2/3/2021, 14:48

    Olá a todos,

    A propósito de questão de colega neste tópico, partilho exemplo para verificar se existe ficheiro oculto.

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

        Dim FSO As Object
        Set FSO = CreateObject("scripting.filesystemobject")
        
        If FSO.FileExists(strCaminho) = False Then
           fncExisteFicheiro = False
        Else
          fncExisteFicheiro = True
        End If

    End Function

    Abraço

      Data/hora atual: 21/11/2024, 09:42