Bom dia!
To com o seguinte probleminha.... o Comando de Remover diretórios não remove a pasta se está ter conteúdo... só se ela está vazi...
Estou usando api pois o Objeto FileSystemObject não funciona 100% por causa das permissões de pasta....
Alguem pode me ajudar....
O código da API vai abaixo...
Private Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
Public Sub P_DELETA_PASTA(cPasta As String)
Dim Ret As Long
Ret& = RemoveDirectory(cPasta)
End Sub
Valeu
