Пример получения информации о шрифте с помощью AKFontInfo.wdx
пути поправить на свои
Code:
On Error Resume Next
Set wdx = CreateObject("tc_wdx.wdx")
If Err.Number <> 0 Then
WScript.Echo "Please install TC_wdx!"
WScript.Quit 1
End If
On Error GoTo 0
wdxPluginPath="c:\WINCMD\Content_wdx\AKFontInfo\AKFontInfo.wdx"
FilePath="c:\windows\fonts\arial.PFM"
f = wdx.Fields(wdxPluginPath,FilePath)
For i = 0 To Ubound(f)-1
s=s & f(i,0) & " = " & cstr(f(i,1)) & vbCrLf
Next
MsgBox s,,FilePath
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
