[VB6] Eliminare i file !!??

[naki]

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

[oregon]

In questa riga

Kill "c:\Calendario\ & cmbchamp.list(a) & \Giornata " & i & "°.fnv"

le virgolette non sono impostate correttamente ... controlla.

P.S. Il linguaggio nel titolo ...

[naki]

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

[oregon]

Originariamente inviato da naki
Kill "c:\Calendario\" & cmbchamp.List(a) & "\Giornata " & i & "°.fnv"

problema risolto

grazie lo stesso

Perche' "grazie lo stesso"?

Hai corretto quello che ti ho indicato ... o no?

[naki]

si e ho aggiunto altro

[LeleFT]

Bene... la prossima volta aggiungi anche

1) Il linguaggio nel titolo
2) I tag CODE per rendere leggibile il codice


Ciao.

[naki]

ok ma per tag code che intendi

[MItaly]

Usando i tag code il codice mantiene l'indentazione con cui l'hai copiato e viene visualizzato con un carattere a spaziatura fissa.
Esempio: tu inserisci questo:

[code]
MessageReturnValue UIDraggingTool::OnRButtonDown(HWND hwnd, BOOL fDoubleClick, int x, int y, UINT KeyFlags)
{
//Abort the dragging
cancel=true;
//Erase the last shape
eraseLastShape();
//Release the capture
ReleaseCapture();
//Nofity the event
DraggingCanceled(last_firstVertex,last_secondVerte x,KeyFlags);
return true;
}[/code]

nel messaggio si vede questo:

MessageReturnValue UIDraggingTool::OnRButtonDown(HWND hwnd, BOOL fDoubleClick, int x, int y, UINT KeyFlags)
{
	//Abort the dragging
	cancel=true;
	//Erase the last shape
	eraseLastShape();
	//Release the capture
	ReleaseCapture();
	//Nofity the event
	DraggingCanceled(last_firstVertex,last_secondVertex,KeyFlags);
	return true;
}

.

[naki]

ok

[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