Autor Tema: Establecer fecha de creación de fichero  (Leído 349 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 220
Establecer fecha de creación de fichero
« en: Mayo 10, 2024, 10:32:46 am »
Palabras clave: fichero, fecha, creación
Autor: Copilot

Me surge la necesidad de crear un fichero con una determinada fecha de creación ya que un proceso externo sobre el que no tengo control, mañana buscará un fichero con fecha de creación de mañana pero el fichero lo creo hoy

Le pido a Copilot un código y me propone esto (por probar)


Código: [Seleccionar]
' Supongamos que deseas cambiar la fecha de creación del archivo "TESTFILE" a "12/12/2017 10:00".
' Primero, copia el archivo a una nueva ubicación con la fecha deseada.
FileCopy "TESTFILE", "NUEVO_TESTFILE"
' Luego, establece la fecha de modificación del nuevo archivo.
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("NUEVO_TESTFILE")
f.DateCreated = #12/12/2017 10:00#
' Finalmente, puedes eliminar el archivo original si es necesario.
Kill "TESTFILE"