Macro para excluir pasta de trabalho

[Higor vp]

Olá,

criei a algum tempo uma planilha para uso em meu local de trabalho, nela criei um codigo em VBA, para limitar o tempo de uso, quando expirar pede uma senha, caso não insira, a planilha se auto elimina, não ficando nem na lixeira, mas agora estou com problema para fazer com que, além de ser eliminada do PC, a pasta onde ela se encontra, também seja excluida, isto é possóvel?

[Alexandre Neves]

Utilize

Sub EliminaPasta(EnderecoCompleto As String)

'criada por Alexandre Neves

'em 2010-04-24

'para Carlos Higor vp

'do fórum ScriptBrasil

Dim fso

On Error GoTo NaoExistePasta

Set fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFolder (EnderecoCompleto)

Set fso = Nothing

Exit Sub

NaoExistePasta:

MsgBox "A pasta" & vbCr & EnderecoCompleto & vbCr & "não existe."

Resume Next

End Sub