Usando VBA, come posso:
1.) Controllare qui. Fondamentalmente fate così:
Function FileExists(ByVal FileToTest As String) As Boolean
FileExists = (Dir(FileToTest) <> "")
End Function
Lascerò a voi il compito di capire i vari tipi di gestione degli errori necessari, ma queste sono tra le cose di gestione degli errori che prenderei in considerazione:
2.) Come cancellare un file. Guardate questo. Fondamentalmente usate il comando Kill ma dovete permettere la possibilità che un file sia di sola lettura. Ecco una funzione per voi:
Sub DeleteFile(ByVal FileToDelete As String)
If FileExists(FileToDelete) Then 'See above
' First remove readonly attribute, if set
SetAttr FileToDelete, vbNormal
' Then delete the file
Kill FileToDelete
End If
End Sub
Di nuovo, lascerò a voi la gestione degli errori e ancora una volta queste sono le cose che prenderei in considerazione:
Dovrebbe comportarsi diversamente per una directory rispetto a un file? Un utente dovrebbe esplicitamente indicare di voler cancellare una directory?
Vuoi che il codice resetti automaticamente l'attributo di sola lettura o l'utente dovrebbe ricevere una sorta di indicazione che l'attributo di sola lettura è impostato?
EDIT: contrassegnando questa risposta come wiki della comunità in modo che chiunque possa modificarla se necessario.
In VB è normalmente Dir
per trovare la directory del file. Se non è vuota allora esiste e poi usa Kill
per sbarazzarsi del file.
test = Dir(Filename)
If Not test = "" Then
Kill (Filename)
End If