Advertisement
Guest User

Untitled

a guest
Sep 22nd, 2017
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.40 KB | None | 0 0
  1. On Error Resume Next
  2.  
  3. dim WshShell, fso, progFolder, folder
  4.  
  5. Set WshShell = CreateObject("wscript.Shell")
  6. Set fso = CreateObject("Scripting.FileSystemObject")
  7.  
  8. progFolder = WshShell.ExpandEnvironmentStrings("%ProgramData%")
  9.  
  10. iTunes = progFolder & "\Apple Computer\iTunes"
  11.  
  12. If fso.FolderExists(iTunes) Then
  13. fso.DeleteFolder iTunes, True
  14. End If
  15.  
  16. Apple = progFolder & "\Apple"
  17.  
  18. RecurseSubDir Apple
  19. If fso.FolderExists(Apple) Then
  20. Set o_Apple = fso.GetFolder(Apple)
  21. If (o_Apple.SubFolders.Files.Count = 0) AND (o_Apple.Files.Count = 0) AND (o_Apple.Size = 0) Then
  22. fso.DeleteFolder Apple, True
  23. End If
  24. End If
  25.  
  26. AppleComputer = progFolder & "\Apple Computer"
  27.  
  28. RecurseSubDir AppleComputer
  29. If fso.FolderExists(AppleComputer) Then
  30. Set o_AppleComputer = fso.GetFolder(AppleComputer)
  31. If (o_AppleComputer.SubFolders.Files.Count = 0) AND (o_AppleComputer.Files.Count = 0) AND (o_AppleComputer.Size = 0) Then
  32. fso.DeleteFolder AppleComputer, True
  33. End If
  34. End If
  35.  
  36. Sub RecurseSubDir(dir)
  37. if fso.FolderExists(dir) Then
  38. Set folder = fso.GetFolder(dir)
  39. If (folder.SubFolders.Count = 0) AND (folder.Files.Count = 0) AND (folder.Size = 0) Then
  40. fso.DeleteFolder folder.Path, True
  41. Exit Sub
  42. End If
  43.  
  44. For Each subdir In folder.SubFolders
  45. If (subdir.SubFolders.Count > 0) Then
  46. RecurseSubDir subdir
  47. End If
  48. If (subdir.SubFolders.Count = 0) AND (subdir.Files.Count = 0) AND (subdir.Size = 0) Then
  49. fso.DeleteFolder subdir, True
  50. End If
  51. Next
  52. End If
  53. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement