El siguiente codigo lo unico que hace es Eliminar una rchivo AUN CUANDO ESTE OCULTO!¡.
Option Explicit
Private Sub Form_Load()
Call MsgBox(IIf(KillFileWithAttributes("un ArchivoX"), "Corrrectamente Borrado", "Error"))
End Sub
Private Function KillFileWithAttributes(ByVal StrFile$) As Boolean
On Error Resume Next
Call SetAttr(StrFile, vbNormal)
Call Kill(StrFile)
KillFileWithAttributes = Err.Number = 0
End Function
Edito: Se pueden usar LAs APIS pero mejor con las funciones propias de VB6... no es algo que nesesite de APIS realmente!¡.
Dulces Lunas!¡.
Autor
En línea
