Listing the file from a folder that was created during last few hours.
Can pass folder to search in and the hour numbers.
Needs FSO object already defined.
Function Files_FoundHours(InFolder, HoursBack)
Rett = ""
Set folder = fso.GetFolder(InFolder)
For Each Fi in folder.Files
If DateDiff("h", Fi.DateCreated, Now) <= HoursBack Then
Rett = InFolder & "\" & Fi.Name
Exit For
End If
Next
Files_FoundHours = Rett
End Function
Rett = ""
Set folder = fso.GetFolder(InFolder)
For Each Fi in folder.Files
If DateDiff("h", Fi.DateCreated, Now) <= HoursBack Then
Rett = InFolder & "\" & Fi.Name
Exit For
End If
Next
Files_FoundHours = Rett
End Function
SystNo, OrderID, HoursBack
Views 378
Downloads 46
CodeID
DB ID
ANmarAmdeen
615
Revisions
v1.0
Tuesday
April
30
2024