List Items in the Fonts Folder

' List Items in the Fonts Folder


Const FONTS = &H14&

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FONTS)
Set objFolderItem = objFolder.Self
WScript.Echo objFolderItem.Path

Set colItems = objFolder.Items
For Each objItem In colItems
  WScript.Echo objItem.Name
Next