L'unica cosa che mi possa venire in mente ora riguarda l'istruzione

codice:
 For Each founddirectory As String In My.Computer.FileSystem.GetDirectories(path, FileIO.SearchOption.SearchAllSubDirectories)
Secondo me ti conviene fare un ciclo For....Each scansionando ogni cartella e sottocartella.