Hi NickHK, hi Alok,

..... got it functionating. See code below.

"NickHK" schrieb im Newsbeitrag
...
Peter,
As Alok pointed out, these properties are not available to text files,
only
file types that support OLE storage.
You would have to store additional data in the actual file as data or read
the standard Windows file info; LastModifieddate etc..

Which properties do you require ?

NickHK

Private Function lastModified(path) As String
Dim objFSO As Object
Dim objFile As Object

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(path)

lastModified = objFile.DateLastModified
End Function

Thanks to both of you for feedback.

Best Regards
Peter Ostermann