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:
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 :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
Cita de: Abu-Ele-Tech en 6 Enero 2014, 19:13 PM
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
Esto me marco error amigo "If My.Computer.FileSystem.FileExists" parce q
lo logre con este codigo:
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 :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