se intendi una funzione vb allora no
cmq

codice:
do until dir(percorso\*.*)= ""
    debug.print dir(percorso\*.*)
    dir()
loop