dim fso
dim folder
dim Folders
dim tf


Set fso = CreateObject("Scripting.FileSystemObject")
sThemeFolder = "C:\Users\Bartek\AppData\Local\Microsoft\Windows\Themes"

Set folder =...