Sunday, July 1, 2018
MEMASANG BREADCRUMBS SEO FRIENDLY VALID HTML5
MEMASANG BREADCRUMBS SEO FRIENDLY VALID HTML5
This function gives the date of last modification of a given file
example: fecharchivo("c: estfile.txt")
result: "15/12/2011 07:35:29 p.m."
Copyright, Andr�s Gonz�lez, 2008
Function fecharchivo(abrir As String) As Variant
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(abrir)
fecharchivo = f.DateLastModified
fecharchivo = Format(fecharchivo, "General Date")
End Function
