Macro para excluir pasta de trabalho

[Higor Sarot]

Olá,

criei a algum tempo uma planilha para uso em meu local de trabalho, nela inserí 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?

Obrigado pela atenção.

[RafaVillani]

Amigo, tente com o comando RmDir, segue:

RmDir "c:\seu_caminho\pasta_a_excluir"

Lembrando que se a pasta conter arquivos ela não será apagada.

Abraços

[Higor Sarot]

Sim, á pasta contem essa mesma planilha so que renomeadas com a data do dia, então se a planilha expirar e se auto excluir, poderá desativar os macros e re-abrila, então por isso precisaria que a pasta excluise também, o comando que usei para deletar a planilha é este:

ThisWorkbook.Saved = True

ThisWorkbook.ChangeFileAccess xlReadOnly

Kill ThisWorkbook.FullName

Application.Quit

End If

mais uma vez obrigado pela ajuda, Rafa..

[RafaVillani]

Sim, á pasta contem essa mesma planilha so que renomeadas com a data do dia, então se a planilha expirar e se auto excluir, poderá desativar os macros e re-abrila, então por isso precisaria que a pasta excluise também, o comando que usei para deletar a planilha é este:

ThisWorkbook.Saved = True

ThisWorkbook.ChangeFileAccess xlReadOnly

Kill ThisWorkbook.FullName

Application.Quit

End If

mais uma vez obrigado pela ajuda, Rafa..

Amigo, não tenho como testar agora, mas de uma olhada.

Você poderia escluir todos os arquivos da pasta, depois, escluir a pasta, com o metodo kill tem como você excluir todos de uma vez, quando puder coloco o código testado para você.

Abraços

RafaVillani

[Higor Sarot]

Assim que puder postar agradeço, é como se eu tivesse uma pasta "X" em meus documentos, a planilha esta nela, e dentro dessa plasta tem pasta "y" pasta "Z", e assim por diante, então quando essa planilha expirar e seja excluida, tambem seja excluida essa pasta "X", junto com as subpastas.

mais uma vez agradeço,

[Higor Sarot]

Moderador,

pode fechar o tópico, consegui usando o comando Kill *.* para excluir os arquivos das pastas e logo o comando RmDir para mover as pastas,

mais uma vez obrigado pela ajuda.

Abraços

Higor

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.