Dim myPath As String
Dim myName As String
Dim riga As String

myPath = "c:\cartella\"
myName = Dir(myPath, vbDirectory)

Do While myName <> ""
    If myName <> "." And myName <> ".." Then  'controllo per escludere gli oggetti . e .. di una cartella
      < codice ... >
    End if
    myName = Dir  'si sposta sul file successivo
Loop