Cancellare cartella e suo contenuto in remoto

[marcopaolo79]

Salve a tutti ho questo script che mi cancella la cartella in remoto su un server.
Ovviamente ho i permessi di scrittura su queste cartelle.

strFolder = "/12345" 

' Percorso di destinazione, relativo o assoluto
strPath = Server.MapPath("/allegati") 

Set objFso = Server.CreateObject("Scripting.FileSystemObject") 
objFso.DeleteFolder(strPath & strFolder) 
Set objFso = Nothing 

end if

ora questo script funziona bene, l'unica cosa è che a volte io ho dei file contenuti dentro a queste cartelle.
come posso cancellare tutto?
cioè "cancella la cartella e il suo contenuto"........
grazie

[optime]

se non te lo fa da sé, devi prima cancellare il contenuto e poi la cartella

[marcopaolo79]

c'avevo pensato..... ho provato con questo script qua:

cartella= "12345"

Set File_System_Object = Server.createObject("Scripting.FileSystemObject")
Set Cartella_Object = File_System_Object.GetFolder(Server.MapPath("/_Allegati/" & cartella))
Set Files_Object = Cartella_Object.Files

for each Singolo_File in Files_Object
	File_System_Object.DeleteFile(Singolo_File)
next

Set Files_Object = Nothing
Set Cartella_Object = Nothing
Set File_System_Object = Nothing

e questo script mi cancella i file interni della cartella ma se poi provo a cancellare la cartella con lo script precedente

mi dà questo errore:

Impossibile trovare il percorso
line 28

e la linea 28 è questa:

objFso.DeleteFolder(strPath & strFolder)

il codice completo invece:

cartella= "12345"
Set File_System_Object = Server.createObject("Scripting.FileSystemObject")
Set Cartella_Object = File_System_Object.GetFolder(Server.MapPath("/_Allegati/" & cartella))
Set Files_Object = Cartella_Object.Files
for each Singolo_File in Files_Object
	File_System_Object.DeleteFile(Singolo_File)
next
Set Files_Object = Nothing
Set Cartella_Object = Nothing
Set File_System_Object = Nothing 

' Nome della cartella da rimuovere 
strFolder = "/12345" 

' Percorso di destinazione, relativo o assoluto
strPath = Server.MapPath("/Fpdb") 
Set objFso = Server.CreateObject("Scripting.FileSystemObject") 
objFso.DeleteFolder(strPath & strFolder) 
Set objFso = Nothing

sicuramente li metto male insieme i due script ma per evitare casini li ho semplicemente copiati

[optime]

fatti stampare strPath & strFolder e controlla che il percorso sia corretto

[marcopaolo79]

Ho stampato a video il percorso e non era corretto, l'ho corretto e ho migliorato il codice così:

cartella= "12345"

Set File_System_Object = Server.createObject("Scripting.FileSystemObject")
Set Cartella_Object = File_System_Object.GetFolder(Server.MapPath("/_Allegati/" & cartella))
Set Files_Object = Cartella_Object.Files

for each Singolo_File in Files_Object
	File_System_Object.DeleteFile(Singolo_File)
next

' Nome della cartella da rimuovere 
strFolder = "/12345" 

' Percorso di destinazione, relativo o assoluto
strPath = Server.MapPath("/_Allegati") 

response.write(strPath)
response.write(strFolder)

File_System_Object.DeleteFolder(strPath & strFolder) 'linea 25

Set Files_Object = Nothing
Set Cartella_Object = Nothing
Set File_System_Object = Nothing

il problema è questo:
se ci sono file dentro la cartella 12345 me li cancella e poi mi dà questo errore quando prova cancellare la cartella:
Errore di run-time di Microsoft VBScript error '800a0046'
Autorizzazione negata
linea 25

se invece non ci sono i file dentro la cartella 12345 allora non dà errori e mi cancella la cartella.

secondo te questa cosa è dovuta a quale motivo?