ciclo per eliminazione progressiva file..

[dops]

ciao, devo eliminare dei file dal server secondo l'id o gli id (e questo è il problema) passati..
praticamente l'utente invia alla pagina una serie di id in forma: "15,55,3"
ora devo recuperare il testo di un campo corrispondente agli id dei record passati. Il testo è in pratica il file da eliminare (o i file) con la relativa estensione.. ho questo codice:

'recupero gli id passati in fomrato "15,55,3"
valueDoc=request.Form("checkdoc")

'creo e apro il recordset
set rsrec=server.CreateObject("adodb.recordset")
sqlrec= "SELECT * FROM dett_file WHERE id IN("&valueDoc&")"
'response.Write sqlrec
rsrec.open sqlrec, conn,3,3

'ciclo il recordset per verificare che i file siano corrispondenti agli id passati (e lo sono)
do while not rsrec.eof 
response.Write rsrec("file_doc")+"
"
rsrec.movenext
loop

' creo l'oggetto fso per l'eliminazione dei file
Dim OggFile, origine
origine="/doc"+
Set fso = CreateObject("Scripting.FileSystemObject")
Set OggFile = fso.GetFile (origine)
OggFile.Delete

Come faccio ad eliminare i file corrispondenti agli id passati? metto l'fso in un cilco? e in che modo?
Ciao

[fiber81]

Se ho capito bene....

'recupero gli id passati in fomrato "15,55,3"
valueDoc=request.Form("checkdoc")

'creo e apro il recordset
set rsrec=server.CreateObject("adodb.recordset")
sqlrec= "SELECT * FROM dett_file WHERE id IN("&valueDoc&")"
'response.Write sqlrec
rsrec.open sqlrec, conn,3,3

'ciclo il recordset per verificare che i file siano corrispondenti agli id passati (e lo sono)
do while not rsrec.eof 
response.Write rsrec("file_doc")+"
"
rsrec.movenext
loop

rsrec.Movefirst
Dim OggFile, origine
do while not rsrec.eof
' creo l'oggetto fso per l'eliminazione dei file

origine="/doc"+rsrec("file_doc")
Set fso = CreateObject("Scripting.FileSystemObject")
Set OggFile = fso.GetFile (origine)
OggFile.Delete
rsrec.movenext
loop

Magari nel ciclo di eliminazione dovresti fare un controllo se il file esiste o se il campo non è vuoto altrimenti potrebbe darti errore perchè non trova il file

[dops]

se io scrivo:

origine="/doc"+rsrec("file_doc")

non mi troverà mai il file in quanto l'output di rsrec("file_doc")
saranno tutti i file insieme..
no il ciclo deve essere fatto in un altro modo..

[fiber81]

Se ho capito bene la query ti restituisce un insieme di record, ognuno dei quali contiene il campo file_doc che indica il file da eliminare. No?

[dops]

Originariamente inviato da fiber81
Se ho capito bene la query ti restituisce un insieme di record, ognuno dei quali contiene il campo file_doc che indica il file da eliminare. No?

si

[fiber81]

e allora che problema c'è?
rsrec("file_doc) contiene solamente il nome di un file, tu scorri tutto il recordset ed elimini...

[dops]

up..

[dops]

up

[Roby_72]

L'eliminazione dei file devi metterla dentro al loop, in pratica sotto questa riga:
response.Write rsrec("file_doc")+"
"


Roby

[dops]

Originariamente inviato da Roby_72
L'eliminazione dei file devi metterla dentro al loop, in pratica sotto questa riga:
response.Write rsrec("file_doc")+"
"


Roby

mmhh.. in che modo scusa.. non capisco.. io la vedo sotto al loop