Uso del database e del filesystemobject

[carlostefano]

Ciao a tutti,
ho bisogno di guardare se in una cartella sono presenti delle sottocartelle e, se si, confrontare il loro nome con quello contenuto in un database. Se il nome è già presente nel database non deve succedere nulla, altrimenti bisogna stampare a video il nome di tale cartella. Io ho provato con questo codice, ma non ottengo il risultato voluto:


Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(TEMPLATES_FOLDER))
opendatabase "SELECT tFolder FROM templates"
For Each objSubfolder in objFolder.Subfolders
if not objrecordset.eof then
do while not objrecordset.eof
if not objSubfolder.Name = objrecordset("tFolder") then
response.write objSubfolder.Name & "
"
end if
objrecordset.movenext
loop
end if
next
closedatabase
Set objFolder = Nothing
Set objFSO = Nothing


Qualcuno sa dov'è il problema?

[carlostefano]

ok, ho risolto facendo diventare il codice come segue:


Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(TEMPLATES_FOLDER))
opendatabase "SELECT tFolder FROM templates"
For Each objSubfolder in objFolder.Subfolders
if not objrecordset.eof then
do while not objrecordset.eof
if objSubfolder.Name = objrecordset("tFolder") then
exit do
else
objrecordset.movenext
if objrecordset.eof then
response.write objSubfolder.Name & "
"
end if
end if
loop
else
response.write objSubfolder.Name & "
"
end if
next
closedatabase
Set objFolder = Nothing
Set objFSO = Nothing