Foro de elhacker.net

Amigos, algos simple, pero no he podido dar en el clavo, tengo un botón que borra un archivo, funciona perfecto.

El problema esta cuando el archivo ya fue borrado, me lanza error, lo que quiero, es a través de la instrucción IF, se borre el archivo si es que existe y si no, que lo salte y no haga nada.

intento con esto, pero esta mal la sintaxis:


haber si me dan una mano amigos :D
saludos

Borras y luego compruebas, creo que deberías primero comprobar si existe el archivo y luego proceder a borrarlo. Prueba con:

Private Sub Command2_Click()
    If My.Computer.FileSystem.FileExists("App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin") Then
        Kill App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin"
    Else
        MsgBox ("Archivo no encontrado.")
    End If
End Sub
 

Private Sub Command2_Click()
    If My.Computer.FileSystem.FileExists("App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin") Then
        Kill App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin"
    Else
        MsgBox ("Archivo no encontrado.")
    End If
End Sub
 

lo logre con este codigo:

gracias por la ayuda :D

Puedes usar FSO.Fileexist para comprobar si existe un fichero. El comando Dir() también devuelve un valor si existe el fichero o simplemente un:

On Error Resume Next
Kill "fichero"
 

Exista o no el fichero, lo borrará sin mostrar ningún error.

Saludos