vb.net - 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