Borrar según fecha en VB 6.0
Hola
Sé muy poquito de visual basic y estoy haciendo un programilla en el cual necesito condicionar la fecha, pero no sé como hacerlo. Me explico:
Me gustaría saber como decir en lenguaje de Visual basic lo siguiente:
Si la fecha del sistema es mayor que 01/01/05 (por ejemplo)entonces borra el archivo C:\copiaseg.bak (por ejemplo) ¿Podrías ayudarme?
Gracias y un saludo
Sé muy poquito de visual basic y estoy haciendo un programilla en el cual necesito condicionar la fecha, pero no sé como hacerlo. Me explico:
Me gustaría saber como decir en lenguaje de Visual basic lo siguiente:
Si la fecha del sistema es mayor que 01/01/05 (por ejemplo)entonces borra el archivo C:\copiaseg.bak (por ejemplo) ¿Podrías ayudarme?
Gracias y un saludo
1 Respuesta
Respuesta
1
Perdona el retraso, pero he estado de vacaciones.
Intenta con esto:
Dim FechaTope as date
dim nombrefichero as string
Dim fs, f As Object
nombrefichero="c:\copiaseg.bak"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(nombrefichero)
if cdate(now)> fechatope then
f.delete
end if
Intenta con esto:
Dim FechaTope as date
dim nombrefichero as string
Dim fs, f As Object
nombrefichero="c:\copiaseg.bak"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(nombrefichero)
if cdate(now)> fechatope then
f.delete
end if