Como borrar un archivo con macros a
Hola experto mi pregunta es la siguiente; tengo el código para borrar un archivo de excel, y toda va bien, pero si al archivo que voy a borrrar le agrego la fecha en este formato 08-12-2010 (dd-mm-yyyy) no lo encuentra y no lo puede borrar me puedes decir en que estoy mal te paso el código:
Sub DeleteFile()
Dim fso
Dim file As String
Evaluate1 = Evaluate("=now()")
a = Format(Evaluate1, "dd-mm-yyyy")
file = "C:\Documents and Settings\BetOoo\Desktop\Reporte de Control Produccion\Mis Reportes\Copia Material Req Alu Y Extreme " & a & " .xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
fso.DeleteFile file, True
end if
Else
Siempre me dice que no lo encuentra o de plano no me dice nada pero no lo borra
Sub DeleteFile()
Dim fso
Dim file As String
Evaluate1 = Evaluate("=now()")
a = Format(Evaluate1, "dd-mm-yyyy")
file = "C:\Documents and Settings\BetOoo\Desktop\Reporte de Control Produccion\Mis Reportes\Copia Material Req Alu Y Extreme " & a & " .xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
fso.DeleteFile file, True
end if
Else
Siempre me dice que no lo encuentra o de plano no me dice nada pero no lo borra
1 Respuesta
Respuesta de macros_excel
1
Corregí un poco el código pero es la misma función, solo cambie la ruta y el nombre del archivo
Sub DeleteFile()
Dim fso
Dim file As String
Evaluate1 = Evaluate("=now()")
a = Format(Evaluate1, "dd-mm-yy")
file = "C:\Copia Material" & a & ".xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
fso.DeleteFile file, True
MsgBox ("Archivo encontrado y eliminado")
Else
MsgBox ("El Archivo no existe")
End If
End Sub
Sub DeleteFile()
Dim fso
Dim file As String
Evaluate1 = Evaluate("=now()")
a = Format(Evaluate1, "dd-mm-yy")
file = "C:\Copia Material" & a & ".xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
fso.DeleteFile file, True
MsgBox ("Archivo encontrado y eliminado")
Else
MsgBox ("El Archivo no existe")
End If
End Sub
Gracias por tu pronta respuesta pero sigo en las mismas, no lo elimina porque no lo encuentra, has una prueba, crea el archivo con el nombre Copia Material 09-12-2010 e intenta eliminarlo para que veas que no lo encuentra
Tengo colgada una plantilla con un método que yo hice, se llama
Busca_Archivo_Encuentra_y_Elimina.xls
Ya esta probada, tiene código abierto
Tendrás que enviar un mensaje de texto con tu celular para ver la clave de descarga
pero vale la pena.
Te dejo el Link de la página
Busca_Archivo_Encuentra_y_Elimina.xls
Ya esta probada, tiene código abierto
Tendrás que enviar un mensaje de texto con tu celular para ver la clave de descarga
pero vale la pena.
Te dejo el Link de la página
