Borrar archivo o saltarlo si existe

[rapbyone]

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:

Código [Seleccionar] Expandir

Private Sub Command2_Click()

Kill App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin"

If Kill(App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin") = 1 Then
    Else
 
  End If
End Sub

haber si me dan una mano amigos
saludos

[Abu-Ele-Tech]

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

Código (vb) [Seleccionar] Expandir

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


[rapbyone]

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

Código (vb) [Seleccionar] Expandir

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


Esto me marco error amigo "If My.Computer.FileSystem.FileExists" parce q

[rapbyone]

lo logre con este codigo:

Código [Seleccionar] Expandir


If Dir$(App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin") <> "" Then
Kill App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin"
Else

End If

gracias por la ayuda

[Mad Antrax]

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:

Código (vb) [Seleccionar] Expandir

On Error Resume Next
Kill "fichero"


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

Saludos