Cancellare un file senza controllare se è Read-only Hidden o System


Function DeleteFile(File As String) As Boolean 
    On Error Resume Next 

    SetAttr File, 0 
    Kill File 
    DeleteFile = Err = 0 
    On Error GoTo 0 
End Function

Testato su: Windows 98, Win Me, Windows 2000 Professional