Locate Newest File that Contains "Alert" 1

[Accel45]

I am using the following Function to retrieve the newest file in a folder. This is working fine.
However, I need to modify this function so that it will find the newest file in a folder where the file name contains "Alert". Any help would be appreciated.

Thanks
Accel45

Function Main()

Dim oFolder

Set oFolder = CreateObject("scripting.filesystemobject").getfolder("c:\test")
For Each aFile In oFolder.Files
If sNewest = "" Then
Set fNewest = aFile
sNewest = aFile.Name
Else
If fNewest.DateCreated < aFile.DateCreated Then
Set fNewest = aFile
End If
End If
Next

Me.Text1 = fNewest.Name

End Function

 

[PHV]

...
For Each aFile In oFolder.Files
  [!]If aFile Like "*Alert*" Then[/!]
    If sNewest = "" Then
...
    End If
  [!]End If[/!]
Next
...

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Accel45]

Thank you PH, this worked great.
Accel45