VBA/Excel/Access/Word/File Path/FileDateTime

Displaying a list of files in a directory

   <source lang="vb">

Sub ListFiles2()

   With Application.fileSearch
       .NewSearch
       .LookIn = "c:\windows\desktop\"
       .FileName = "*.*"
       .SearchSubFolders = False
       .Execute
       For i = 1 To .FoundFiles.Count
           Debug.Print .FoundFiles(i)
           Debug.Print FileLen(.FoundFiles(i))
           Debug.Print FileDateTime(.FoundFiles(i))
       Next i
   End With

End Sub

</source>
   
  

FormatDateTime(Now, vbGeneralDate)

   <source lang="vb">

Sub dateFunctions()

   Debug.Print "vbGeneralDate: " & FormatDateTime(Now, vbGeneralDate)

End Sub

</source>
   
  

FormatDateTime(Now, vbLongDate)

   <source lang="vb">

Sub dateFunctions()

   Debug.Print "vbLongDate: " & FormatDateTime(Now, vbLongDate)

End Sub

</source>
   
  

FormatDateTime(Now, vbShortDate)

   <source lang="vb">

Sub dateFunctions()

   Debug.Print "vbShortDate: " & FormatDateTime(Now, vbShortDate)

End Sub

</source>
   
  

Retrieve Date and Time of Last Save

   <source lang="vb">

Sub LastSaved()

   Debug.Print FileDateTime("C:\")

End Function

</source>