| |
|
|
| | Как узнать, какие шрифты установлены в ОС и записать их в таблицу (Access2003)? | |
| |
| |
| |
|
|
| | вероятно посмотреть их в c:\windows\fonts\  | |
| |
| |
| |
|
|
| | 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 | |
| |
| |
| |
|
|
| | Спасибо!
Все правильно.
Где об этом (Shell) можно почитать качественно, но не занудно? | |
| |
| |
| |
|
|
| | как \то не удивительно, на сайте MS
конкретно здесь
http://www.microsoft.com/technet/scriptcenter/default.mspx | |
| |
| |
