scusa.. l'errore è più in basso!

ecco
<%
do until rs.eof
DIR1=DIREC&rs("id")&"\"
Set dir = fs.GetFolder(DIR1) (qua)



la cartella esiste..