Olá a todos,
A propósito de questão de colega neste tópico, partilho exemplo para verificar se existe ficheiro oculto.
Abraço
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