[Resolvido] Função apaga pasta

[Carlos Moreira 0]

Ola pessoal tenho este código abaixo que deleta arquivos, preciso de um que delete pasta, alguem teria ai?

 

Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Caminho = Server.MapPath("../upload")

If Fso.FileExists(Caminho & "\"&imagem1valor&"") Then
   Fso.DeleteFile(Caminho & "\"&imagem1valor&"")
End If

Set Fso = Nothing

[Cesão 1]

ServerPaths = "nome_da_pasta"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.FolderExists(Server.MapPath(ServerPaths)) then
objFSO.DeleteFolder(Server.MapPath(ServerPaths))
end if
Set objFSO = Nothing

eu uso essa.

[Carlos Moreira 0]

Perfeito, Brigadao Cesão!!!

Abraço!