cancellare file con vb

[amodio]

io devo cancellare tutti i file con estensione tmp
dall directory locale

se faccio kill "*.tmp" mi da un errore di autorizzazione negata
perche?(io questo esempio lo ho preso dall'hsdn)

[vonkranz]

Strano, cosi' dovrebbe funzionare.
- Prova a specificare il percorso completo (app.path & "\*.tmp").
- Puo' essere che ci siano dei file protetti in scrittura?
- Puo' essere che non ci siano file con estensione TMP (ma in questo caso dovrebbe dirti "Impossibile trovare il file")
- Puo' essere che uno dei file TMP che provi a cancellare sia ancora aperto dal programma?

[amodio]

no niente
ho provato a mettere tmp anche maiuscolo

[vonkranz]

Il profilo utente che stai usando ha i diritti per cancellare?

[amodio]

non so perche?
io sono amministratore locale! penso di si
a mano ci riesco benissimo

[darkblOOd]

ti da errore perchè sicuramente tra i file temporanei c'è anche il file della tua applicazione e non può essere cancellato!

:tongue:

[amodio]

ah ma io dopo che visualizzo i report mi crea una decina di file .tmp
ovviamente + passa il tempo + aumentano

ho fatto una funzione nel queryunload che me licancell (niente)

allora che devo fare? farmi riempire l'hard disk?
no dai!

[darkblOOd]

Originariamente inviato da amodio
ah ma io dopo che visualizzo i report mi crea una decina di file .tmp
ovviamente + passa il tempo + aumentano

ho fatto una funzione nel queryunload che me licancell (niente)

allora che devo fare? farmi riempire l'hard disk?
no dai!

ti secchi se ti chiedo di postare la function?

[amodio]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

On Error GoTo GestioneErrore:

Dim Msg 'Dichiara la variabile.
If UnloadMode > 0 Then
'Se si esce dall'applicazione.
Msg = "Uscire dall'applicazione?"
Else
'Se si chiude il form.
Msg = "Chiudere Prima Nota?"
End If
' Interrompe QueryUnload se viene scelto No.
If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then
Cancel = True
Me.TBL_ToolBar.Buttons(6).Enabled = True
End If

Kill (App.Path & "\*.TMP")


Exit Sub
GestioneErrore:

Call Scrivi_Errore(Now, "form -->queryunload", Err.Description)

End Sub

[darkblOOd]

fammi capire: ti crea file temporanei nella cartella dell'applicazione?