Início
Olá a todos,
Partilho exemplo para eliminar ficheiro, mesmo que seja oculto.
Abraço e bons estudos
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