Dim strDirectory, dtNow, FSO, objFolder

dtNow = Now()
strDirectory = "C:\HostingSpaces\cloudspo\sportsmgr.us\wwwroot\text"
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(strDirectory)
 
For Each objFile in objFolder.Files

If DateDiff("h", objFile.DateCreated,dtNow) >=1 Then
objFile.Delete True
End If
 
Next