cartella vuota messaggio di errore

[djjunior]

Carissimi,
come faccio ad implementare a questo script un messaggio di errore se la cartella è vuota?

<% 

Dim objFso, objFolder, objFiles
Dim strFolder, strFile, strPath, strExt

' Definisci il percorso della cartella da leggere 
strPath = "esercizio/" 
strExt = "" 

Set objFso = Server.createObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

for each strFile in objFiles 
if Right(lcase(strFile.name), Len(strExt)) = lcase(strExt) then 

%>

Grazie
G.

[Roby_72]

Usa un contatore da incrementare nella for.
Se non risulta incrementato DOPO la for allora la cartella è vuota.

Roby

[wallrider]

roby, perchè hai scartato l'opzione

if objFiles.count =0 then
'messaggio di errore


?

[Roby_72]

Semplice, non l'ho ricordata....

Roby