Ciao Vincenzo,
Ciao, ho provato a scaricare di nuovo i file e li ho estratti su una cartella sul desktop, la cosa bella è che ora mi sviluppa i 124 files ma poi riepilogo non contiene dati... vedi screenshot
Inoltre,
è vero che sono ignorante però, è chiaro che nel codice, dove c'è scritto modifica, io metto l'indirizzo della cartella contenete i csv..... come da prossimo screenshot

Se hai scaricato ed estratto gli stessi 124 file csv nella tua directory, l'unica differenza tra il tuo scenario ed il mio sarebbe il nome della directory.
Quindi, esegui il seguente codice e fammi vedere ancora questa volta il messagio che ottieni:
'===========>>
Option Explicit
'----------->>
Public Sub Diagnostica()
Dim FSO As Object
Dim oFile As Object
Dim oFiles As Object
Dim oFolder As Object
Dim iFile As Long
Const sPercorso As String = _
"C:\Users\Utente\DesktopTaranto" '<<=== NONModifica
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = FSO.GetFolder(sPercorso)
Set oFiles = oFolder.Files
For Each oFile In oFiles
If oFile.Name Like sNameType Then
iFile = iFile + 1
End If
Next oFile
Call MsgBox( _
Prompt:="Il numero di file csv trovati nella cartella " _
& sPercorso & "= " & iFile, _
Buttons:=vbInformation, _
Title:="REPORT")
End Sub
'<<=========
===
Regards,
Norman
