Dim fso
Set Shell = CreateObject("WScript.Shell")
ProgramsPath = Shell.SpecialFolders("AllUsersPrograms")
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(ProgramsPath & "\Digital Empire")) Then 
fso.DeleteFolder (ProgramsPath & "\Digital Empire")
End If

DesktopPath = Shell.SpecialFolders("Desktop")
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(DesktopPath & "\DE Black Spider.lnk")) Then 
fso.DeleteFile (DesktopPath & "\DE Black Spider.lnk")
End If
