Set sa = CreateObject("Shell.Application")Set fonts = sa.NameSpace(20)fonts.CopyHere "c:\fonts\meineschrift.ttf"