Deletar Pasta e Subpastas

[mfelis]

Olá.
Tinha um Problema com a rotina zip que não substituia os arquivos.O Marcos deu a idéia de apagar todo o directorio a ser atualizado primeiro depois de muito tempo pensei e desidi fazer isso então usei o Delete File(*.*) na minha pasta a ser apagada e ele só deletou os arquivos da primeira pasta e não as subpastas.preciso de uma rotina que delete a pasta e Subpastas.

[alceu11]

Muito cuidado ate apaguie esta rotina no use sem saber!! analise o codigo primeiro
********cuidado acabo de perder uma pasta inteira por sua causa e agora?
********so faca isto numa pasta lixo,,,,
Cuidado com o cdigo

Código:


cDirectorio = \"c:\\lixoarquiv\"
nTotArchivos = Adir(aArchivos, cDirectorio+\"*.*\")

For i = 1 To nTotArchivos
cNomArchivo = cDirectorio + aArchivos[I,1]
Wait Window \"apagando osl arquivos: \" +cNomArchivo Nowait Noclear
Delete File (cNomArchivo) recycle
Next
Rmdir (cDirectorio)
=Messagebox(\'_excluido o directorio \' + cDirectorio)



[Marcos Guedes]

Veja também esta função:
[Você precisa estar registrado e conectado para ver este link.]

Resolve?

[Marcos Guedes]

Muito cuidado ate apaguie esta rotina no use sem saber!! analise o codigo primeiro
********cuidado acabo de perder uma pasta inteira por sua causa e agora?
********so faca isto numa pasta lixo,,,,

Alceu, verifique se sua pasta está na lixeira.

[mfelis]

Resolveu.Muito Obrigado