allora non riesco a cancellare i file creati
Il codice è il seguente:

Private Sub mnuelimina_Click()
On Error GoTo GestioneErrori
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\Serie A\"
RmDir "c:\Calendario\Premiership\"
RmDir "c:\Calendario\Liga Spagnola\"
RmDir "c:\Calendario\Ligue 1\"
RmDir "c:\Calendario\"
GestioneErrori:
If Err.Number = 53 Then
Exit Sub
End If
If Err.Number = 75 Then
Exit Sub
End If
Refresh
End Sub

Correggete se potete
In poche parole questo prog. mi serve per caricare le giornate del campionato
cmbchamp contiene i nomi dei calendari
cmbgiornata s seglie la giornata da vedere

grazie in anticipo

controllato