Coger fecha creación archivo en un cuadro de texto
Necesito que aparezca en un cuadro de texto que tengo dentro de un formulario, la fecha de creación o de actualización, del archivo que yo le indique.
Necesito que el cuadro de texto, se actualice al abrir el formulario..
[Hola. Si quieres cargar el textbox con la fecha actual.
Private Sub UserForm_Initialize() TextBox1.Value = Date End Sub
Hola..
Gracias, pero la idea es que en cuadro de texto, me aparezca la fecha de creación de un archivo, yo le pasare la ruta del archivo, quiero que lea la fecha de actualización o de creación, y una vez leída me aparezca en el cuadro de texto al abrir el formulario
Gracias.
Entonces entendí mal. Prueba con la siguiente:
Sub ObtenerFecha()
'by Carlos Arrocha
Dim x As String
x = Application.GetOpenFilename
fec = FileDateTime(x)
Range("A2") = fec
UserForm1.Show
End SubSe abrirá el cuadro de dialogo para que selecciones el archivo, este se guardará en "x", obteniendo la fecha con "FileDateTime", esta se guarda en "fec", para registrarla seguidamente en la celda "A2". Posteriormente, se abre el formulario con la fecha en el TextBox1, para esto el siguiente código.
Private Sub UserForm_Initialize()
Set h1 = Sheets("Hoja1")
TextBox1.Value = h1.[A2]
End SubEspero que sea lo que necesitas. Saludoss
