[VB6] Eliminare i file !!??

[naki]

On Error Resume Next
Dim a As Byte
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
For i = 0 To 3
Kill "c:\Calendario\" & cmbchamp.List(i) & ".fnv"
Next i
RmDir "c:\Calendario\Giocate"
RmDir "c:\Calendario\Serie A"
RmDir "c:\Calendario\Premiership"
RmDir "c:\Calendario\Liga Spagnola"
RmDir "c:\Calendario\Ligue 1"
RmDir "c:\Calendario"
lstgiornata.Clear
cmbgiornata.Clear