1 Respuesta
Respuesta de valedor
1
Claro que si...
Public Sub Borrar_Fichero(ByVal Ruta As String)
'Verificamos que exista el fichero
If Len(Dir(Ruta))>0 Then
Res = MsgBox ("Estas seguro de borrar el archivo " & Ruta,vbYesNo,"Borrar")
If Res=vbYex Then
Kill Ruta
End If
Else
MsgBox "No se encontro el archivo"
End If
End Sub
Por supuesto que la linea que borra el archivo es solo una
Kill Ruta
que puedes usar tambien
Kill "C:\Mis documentos\datos.txt"
Pero la macro te evita algunos errores, por ejemplo si el archivo no existe...
Para llamar a la macro usas..
Borrar_Fichero "C:\Mis documentos\datos.txt"
Saludos, si esto resuelve tu pregunta te agradeceré la finalizaras.
Public Sub Borrar_Fichero(ByVal Ruta As String)
'Verificamos que exista el fichero
If Len(Dir(Ruta))>0 Then
Res = MsgBox ("Estas seguro de borrar el archivo " & Ruta,vbYesNo,"Borrar")
If Res=vbYex Then
Kill Ruta
End If
Else
MsgBox "No se encontro el archivo"
End If
End Sub
Por supuesto que la linea que borra el archivo es solo una
Kill Ruta
que puedes usar tambien
Kill "C:\Mis documentos\datos.txt"
Pero la macro te evita algunos errores, por ejemplo si el archivo no existe...
Para llamar a la macro usas..
Borrar_Fichero "C:\Mis documentos\datos.txt"
Saludos, si esto resuelve tu pregunta te agradeceré la finalizaras.
