Prova a togliere lo "/" finale

do until rs.eof
DIR1=DIREC&rs("id")
Set dir = fs.GetFolder(DIR1)