That did it. I'm gonna take a break hope you dont mind if I ask a few more questions later. I will try to get this figured out but I may still need some help maybe tommorrow. Thanks again man I appreciate it.
I had to make it like this though just to clarify inorder for it to work and delete the fonts folder.
Set WshShell = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set fl = fso.GetFolder(WshShell.CurrentDirectory & "\fonts")
fl.Delete(True)