Views

Histats

Vitrine

VBA: Deletando arquivos - 01.

Já tentou deletar o seu próprio arquivo seja .Doc, .XLS, .PPT ou mesmo na versão 2007 ou 2010 ?
 
E para que isso seria útil, perguntam os mais desavisados...Bem, poderíamos utilizar em uma operação de automação ou para proteger sua planilha ou documento de serem abertos em certos dias ou até determinanda data limite.
 
Imagine-se informando...Este arquivo se autodestruirá em 2 dias (E se tiver um pouco de paciência em alguns segundos).
 
A função é simples de tudo, mas muito útil:
 
Aproveitem!
 
Public Sub KillProperly(Killfile As String)
    If Len(Dir$(Killfile)) > 0 Then
        SetAttr KillFile, vbNormal
        Kill KillFile
    End If
End Sub

André Luiz Bernardes
 | bernardess @ gmail . com | InAnyPlace (Skype) | Blog Office VBA | Blog Excel | Blog Access    |

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...