return date file last opened (function, FSO)

[mortphil]

Hello everyone,

I am trying to write a function to return the date a file was last change. when I use the below code I get an error "User defined type not defined".

Would you know what I am missing ?

 Function PhilInfoObject(PathObject As String, NameObject As String) 
 
  
  
 Dim objFolder As folder 
 Dim objFSO As FileSystemObject 
 Dim objFile As File 
 
 Set objFSO = New FileSystemObject 
 Set objFolder = objFSO.GetFolder(PathObject) 
 Set objFile = NameObject & ".txt" 
  
 PhilInfoObject = objFile.DateLastModified 
  
 
 End Function