ник: osmor
Const FONTS = &H14&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FONTS)
Set objFolderItem = objFolder.Self
debug.print objFolderItem.Path
Set colItems = objFolder.Items
For Each objItem in colItems
debug.print objItem.Name
Next