se om der findes nogle undermapper i mappen

Hej

Kan det lade sig gøre at finde ud af om der findes nogle mapper i en mappe med:

Dim  objFolder
Set objFolder = objFSO.GetFolder(Folder)
Dim Fold, Folders, strTemp
Set Folders = objFolder.SubFolders

hvor objfolder = evt images/upload/

jeg vil nemlig kun vide om der er nogle folders i denne mappe da jeg skal bruge det i en If sætning.

skal nemlig kunne se at hvis der ingen mapper findes så skal den lave en response.write og hvis der bare findes 1 eller flere mapper i mappen så skal den lave en anden response.write men hvordan kan jeg tjekke det !?