Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- On Error Resume Next
- dim WshShell, fso, progFolder, folder
- Set WshShell = CreateObject("wscript.Shell")
- Set fso = CreateObject("Scripting.FileSystemObject")
- progFolder = WshShell.ExpandEnvironmentStrings("%ProgramData%")
- iTunes = progFolder & "\Apple Computer\iTunes"
- If fso.FolderExists(iTunes) Then
- fso.DeleteFolder iTunes, True
- End If
- Apple = progFolder & "\Apple"
- RecurseSubDir Apple
- If fso.FolderExists(Apple) Then
- Set o_Apple = fso.GetFolder(Apple)
- If (o_Apple.SubFolders.Files.Count = 0) AND (o_Apple.Files.Count = 0) AND (o_Apple.Size = 0) Then
- fso.DeleteFolder Apple, True
- End If
- End If
- AppleComputer = progFolder & "\Apple Computer"
- RecurseSubDir AppleComputer
- If fso.FolderExists(AppleComputer) Then
- Set o_AppleComputer = fso.GetFolder(AppleComputer)
- If (o_AppleComputer.SubFolders.Files.Count = 0) AND (o_AppleComputer.Files.Count = 0) AND (o_AppleComputer.Size = 0) Then
- fso.DeleteFolder AppleComputer, True
- End If
- End If
- Sub RecurseSubDir(dir)
- if fso.FolderExists(dir) Then
- Set folder = fso.GetFolder(dir)
- If (folder.SubFolders.Count = 0) AND (folder.Files.Count = 0) AND (folder.Size = 0) Then
- fso.DeleteFolder folder.Path, True
- Exit Sub
- End If
- For Each subdir In folder.SubFolders
- If (subdir.SubFolders.Count > 0) Then
- RecurseSubDir subdir
- End If
- If (subdir.SubFolders.Count = 0) AND (subdir.Files.Count = 0) AND (subdir.Size = 0) Then
- fso.DeleteFolder subdir, True
- End If
- Next
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement