檢查文件夾中所有CSV文件的上次保存日期

Question

真的很簡單的問題，我想。我怎樣才能修改下面的內容，而不是看LOI.CSV，它會查看Intraday文件夾中的所有.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