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.