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    |