vba - フォルダ内のすべての CSV ファイルの最終保存日を確認する

Question

本当に簡単な質問だと思います。LOI.CSV を見るのではなく、日中フォルダ内のすべての .CSV ファイルを見るように、以下を修正するにはどうすればよいですか?

LastSaved = FileDateTime("W:\Settlements\Intraday\LOT.csv")

If LastSaved < Date Then
  MsgBox ("The current day file for LOI was last saved " & LastSaved)
End If

Answer 1

これを試して

Const sPath As String = "W:\Settlements\Intraday\"

Sub LoopThroughFilesInAFolder()
    Dim StrFile As String

    StrFile = Dir(sPath & "\*.Csv")

    Do While Len(StrFile) > 0
        Debug.Print FileDateTime(sPath & "\" & StrFile)
        '~~> Rest of the code here
        StrFile = Dir
    Loop
End Sub