VBScript - 删除子文件夹中的 json 文件

Question

我环顾四周，我能找到的所有示例都是非常通用的，我只需要代码即可从 Temporary Internet Files 文件夹中随机命名的子文件夹中删除单个 .json 文件。

目前，我每次运行 VBScript 时都会下载一个非常小的文件，但它似乎将该文件下载到 Temp Internet Files 并且在每次后续运行时，从那里而不是 Internet 获取它。这是一个必须始终是新的文件。

如何搜索 Temp Internet Files 中的所有子文件夹并删除 forge[1].json？并且，删除它的父文件夹？

对于 dbmitch：

'  DELETE CACHED FORGE FILE  ------------------------ '
Function DelFiles()

    look_subfolders UserProfile & "AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5\"

    Set Folder = objFso.GetFolder ( fold )

Sub look_subfolders ( fold )

    For Each objFile in Folder.Files
       If objFile.Name = "forge[1].json" Then
          objFile.Delete
    End If
       Next

'look into subfolders:
    For Each Subfolder in Folder.SubFolders
        look_subfolders Subfolder.Path
    Next
End Sub 

End Function

Set objFso = CreateObject( "Scripting.FileSystemObject" ) 在脚本顶部的其他地方定义（它适用于我使用过的所有其他对象）。

我也试过这个...

Path = UserProfile & "AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5"

Set objFolder = objFso.GetFolder(Path)
Set colFiles = objFolder.Files

For Each objFile in colFiles
   If objFile.Name = "forge[1].json" Then
        objFile.Delete
End If
  Next

For Each objFile In objFolder.SubFolders    
   If objFile.Name = "forge[1].json" Then
        objFile.Delete
   End if
 Next

它从主文件夹中删除文件，但不深入任何子文件夹。

Answer 1

试试这个，这是一个递归调用：

Set fs = CreateObject("Scripting.FileSystemObject")

look_subfolders "C:\windows\temp" 'change the path to your temp folder

Sub look_subfolders(fold)
    Set Folder = fs.GetFolder(fold)

    'folder files:
    For Each objFile in Folder.Files
        If objFile.Name = "forge[1].json" Then
            objFile.Delete
            msgbox "File found and deleted" 'message to confirm deletion
            WScript Quit
        End If
    Next

    'look into subfolders:
    For Each Subfolder in Folder.SubFolders
        look_subfolders Subfolder.Path
    Next
End Sub