DateLastModified format time?

Hello,

I'm looking for a way to display only the time? Is it possible?

Private Sub UserForm_Initialize()
  
Dim oFS As Object
    Dim strFilename As String

    strFilename = "c:\test.xls"

    Set oFS = CreateObject("Scripting.FileSystemObject")

    Form1.Label18.Caption = oFS.GetFile(strFilename).DateLastModified

    Set oFS = Nothing

End Sub

Many thanks!
Aquila

it's part of the standard VBA-library (VBEditor, F2, VBA)

Private Sub UserForm_Initialize()
  Label18.Caption = filedatetime("c:\test.xls")
End Sub

Did you use F2 ?
Also in the VBA library:

Format
Formatdatetime
TimeValue
Timeserial
DatePart

Dive into their possibilities.

Hello Aquila,

You can by using the Format statement. I have added it to your code below.

Private Sub UserForm_Initialize()
  
Dim oFS As Object
    Dim strFilename As String

    strFilename = "c:\test.xls"

    Set oFS = CreateObject("Scripting.FileSystemObject")

    Form1.Label18.Caption = Format(oFS.GetFile(strFilename).DateLastModified, "hh:mm AMPM")

    Set oFS = Nothing

End Sub