Se intendi raggruppare (come si fa con le tabelle per lo stesso record ripetuto order by group) non credo sia possibile, se invece ti può bastare sapere se in quella cartella c'è più di 0 file potresti fare cosi
countfile = 0
for each strFile in objFiles
countfile = countfile + 1
if countfile > 0 Then
pulsante
else
messaggio "nessun file presente"
End if
...