如何编写循环通过DFS文件夹并删除“temp”文件夹中的文件？

Question

我正在尝试使用脚本循环遍历DFS环境中的所有文件夹，如果文件夹名称为“Temp”，那么我希望脚本删除该文件夹中超过5天的所有文件。

这是我到目前为止没有太多运气的尝试。

Dim oFSO, oFolder, oSubFolder, i
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("\\DFS\Folders")

Set oSubFolder = oFolder.SubFolders

For Each i in oSubFolder

  If i.Name = "Temp" Then
    MsgBox oSubFolder & " " & i.Name
    'loop through files and delete files older and 5 days of age
    End If
Next