qualcuno sa come si puà cancellare una serie di file..

io ho faoot un form che mi pasa allo script di delete i nomi da cancellare, ai quali aggiungo il path comune comunque a tutti e poi inizio a cancellarli

il mio problerma è che cancella solo il primo, poi si pianta, come se si perdesse qualcosa....

lo script che uso per cancellare i file è il seguente :

<%
f_delete=request.form("f_delete")

dim fs,f
Dim strInput
Dim a_strResult
Dim i

set fs=Server.CreateObject("Scripting.FileSystemObject")
strInput=f_delete
a_strResult=Split(strInput, ",")
strDirectory=Server.MapPath("../avvisi-doc/") & "\"

for i=LBound(a_strResult) to UBound(a_strResult)
fs.DeleteFile(strDirectory & a_strResult(i))
next
%>