oFile.delete e autorizzazione negata

[liana79]

Ciao a tutti, ho questo codice:

If oFs.FolderExists(xxxx) Then
Set oFolder = oFs.GetFolder(xxxxx)
For Each oFile In oFolder.Files
oFile.Delete True
Next
End If

l'errore è: Autorizzazione negata, ma scatta solo dopo aver cancellato tutto nella cartella... come mai questo errore, non capisco???????

Lia

[santino83]

posta la riga a cui ti segna l'errore, evidentemente dopo di questo che hai postato fai qualcosa che da l'errore

[liana79]

Mah....il colmo è che cancella, cmq la riga su cui da l'errore è:

oFile.Delete True

[liana79]

posto tutto il codice..cosi magari si capirà di più:


'cartella di destinazione
pathTo = "C:\Inetpub\wwwroot\upload\"

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder( "C:\Inetpub\wwwroot\provisorio\")
'se esiste il file faccio la copia
if fso.FileExists( "C:\Inetpub\wwwroot\provisorio\"& trim(Request.QueryString("imm")) &"")

'file da copiare
pathFrom = "C:\Inetpub\wwwroot\provisorio\"& trim(Request.QueryString("imm")) &""
Set oFile = fso.GetFile(pathFrom)
oFile.Copy pathTo,true
for each file in folder.files
script=File.name
pathFrom = "C:\Inetpub\wwwroot\provisorio\"& script &""
Set oFile = fso.GetFile(pathFrom)
oFile.delete true
next

end if
set fso=Nothing
set folder= Nothing

Tutto questo codice serve per una modifica di immagini, che vengono prima salvate in una cartella e poi copiate in un'altra definitiva, solo che alla fine la cartella provisoria vorrei riuscire a pulirla...

grazie mille Lia

[Roby_72]

Non vedo la cancellazione della cartella provvisoria.

Roby

[liana79]

for each file in folder.files
script=File.name
pathFrom = "C:\Inetpub\wwwroot\provisorio\"& script &""
Set oFile = fso.GetFile(pathFrom)
oFile.delete true
next

[liana79]

Ho provato le pagine su un'altro pc è funziona tutto benissimo..
Non capisco....ho bisogno di un'impostazione particolare per far funzionare il tutto?????
Sul pc che non funziona il codice ho installato win XP, IIS6

grazie Liana