8 lines
249 B
Plaintext
8 lines
249 B
Plaintext
Set GetRecentFile = Nothing
|
|
For Each objFile In objFolder.Files
|
|
If GetRecentFile is Nothing then
|
|
Set GetRecentFile = objFile
|
|
ElseIf objFile.DateLastModified > GetRecentFile.DateLastModified then
|
|
Set GetRecentFile = objFile
|
|
End If
|
|
Next |