APAGAR PASTA

USUARIO.EXCLUIDOS 14/03/2005 11:20:02
#72905
Olá,

éu uso MkDir "C:\Pasta" para criar uma pasta. Como faço para apagar uma pasta? Obrigado.
JB207 14/03/2005 11:21:47
#72907
Kill "C:\Pasta"
THIAGO.CESAR 14/03/2005 11:26:13
#72908 Resposta escolhida
RmDir "C:\Pasta"
USUARIO.EXCLUIDOS 14/03/2005 14:51:35
#72954
Olá,

Testei os dois metodos e só funcionam se a pasta estiver vazia. Como faço para deletar uma pasta com todos os arquivos e subpastas que ela contem?
USUARIO.EXCLUIDOS 14/03/2005 22:11:54
#73010
Faça assim:
Kill "C:\Pasta\*.*"  ' Apaga todos os ficheiros da pasta
RmDir "C:\Pasta"   ' Apaga a pasta


Já agora, se quiser evitar que dê erro ao apagar a pasta, se por acaso esta não existir, faça assim:
If Not Dir("C:\Pasta", vbDirectory) = "" Then 'Se a pasta existir
RmDir "C:\Pasta"   ' Apaga a pasta
end if


Espero ter ajudado.
THIAGO.CESAR 15/03/2005 08:16:31
#73021
O jeito mesmo é fazer recursivamente, pois não se sabe quantas subpastas podem existir, dê uma olhada na dica abaixo...

APAGANDO ARQUIVOS E DIRETORIOS
Tópico encerrado , respostas não são mais permitidas
Voltar