VBScript - 하위 폴더에서 json 파일 삭제

Question

둘러 본 모든 예제는 매우 일반적인 목적이므로 임시 인터넷 파일 내의 임의의 이름을 가진 하위 폴더에서 단일 .json 파일을 삭제하기 만하면됩니다. 폴더.

현재 VBScript가 실행될 때마다 매우 작은 파일을 다운로드하지만 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