On Error GoTo GestioneErrori
Dim a As Byte
Dim vai As Boolean
vai = True
a = 0
For a = 0 To 3
For i = 1 To 38
Kill "c:\Calendario\" & cmbchamp.List(a) & "\Giornata " & i & "°.fnv"
Next i
Next a
sopra:
For i = 0 To 3
Kill "c:\Calendario\" & cmbchamp.List(i) & ".fnv"
Next i
RmDir "c:\Calendario\Serie A"
RmDir "c:\Calendario\Premiership"
RmDir "c:\Calendario\Liga Spagnola"
RmDir "c:\Calendario\Ligue 1"
RmDir "c:\Calendario"
GoTo sotto
GestioneErrori:
If Err.Number = 53 Then
If vai Then
GoTo sopra
vai = False
End If
End If
If Err.Number = 75 Then
Exit Sub
End If
sotto:
lstgiornata.Clear
cmbgiornata.Clear

problema risolto

grazie lo stesso