View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Javed Javed is offline
external usenet poster
 
Posts: 91
Default File Attributes Function

On May 7, 2:45*pm, LeeL wrote:
Hello, *

Jacob Skaria recently provided the very helpful function pasted below. *I
have a follow-up question, can the function also include a way to get other
attributes such as: *Datecreated, DateLastModified, and DateLastAccessed?

Sub Macro()

MsgBox GetLatestFileName("c:\test")
MsgBox GetLatestFileName("c:\test", "ba*.txt")
End Sub

Function GetLatestFileName(strFolder As String, Optional strFilter As String)
Dim strFile As String, varDT As Variant

strFile = Dir(strFolder & "\" & strFilter, vbNormal)
Do While strFile < ""
If FileDateTime(strFolder & "\" & strFile) varDT Then
varDT = FileDateTime(strFolder & "\" & strFile)
GetLatestFileName = strFile
End If
strFile = Dir
Loop

End Function

--
Thanks & Best Regards


Probably No

You may have to use FileSystemObject.

Ofcourse I will seek Jacob's view