Io mi faccio la domanda e io mi do' la risposta (festival marzulliano):

codice:
        If d.GetDirectories.Length <> 0 Then
            For Each dd In d.GetDirectories
                sz += GetDirectoryLength(dd)
            Next
        End If

        If d.GetFiles.Length <> 0 Then
            For Each ff In d.GetFiles
                sz += ff.Length
            Next
        End If
Così funziona anche nei casi in cui non sono presenti files o sottodirectory.