Looks like you're getting wide text characters. Give this version a quick try:
To give an idea of what the output should look like, it should resemble something similar to this:
Code: (Select All)
Type Font_Name_Type
Name As String
FileName As String
End Type
ReDim Shared Fonts(10000) As Font_Name_Type
Screen _NewImage(1280, 720, 32)
GetFontList
For i = 0 To UBound(Fonts)
Print Fonts(i).Name, Fonts(i).FileName
Next
Sub GetFontList
Shell _Hide "Powershell Get-ItemProperty 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts'|Out-File -Encoding Ascii 'temp_fontlist.txt'"
f = FreeFile
Open "temp_fontlist.txt" For Binary As #f
Do Until EOF(1)
Line Input #1, temp$
sep = InStr(temp$, ":")
l$ = _Trim$(Left$(temp$, sep - 1))
r$ = _Trim$(Mid$(temp$, sep + 1))
If l$ <> "PSPath" Then
Fonts(count).Name = l$
Fonts(count).FileName = r$
count = count + 1
Else
count = count - 1
Exit Do
End If
Loop
Close f
Kill "temp_fontlist.txt"
ReDim _Preserve Fonts(count) As Font_Name_Type
'a quick and simple combsort to make certain our list is in alphabetical order
gap = count
Do
gap = 10 * gap \ 13
If gap < 1 Then gap = 1
i = 0
swapped = 0
Do
If Fonts(i).Name > Fonts(i + gap).Name Then
Swap Fonts(i).Name, Fonts(i + gap).Name
Swap Fonts(i).FileName, Fonts(i + gap).FileName
swapped = -1
End If
i = i + 1
Loop Until i + gap > count
Loop Until gap = 1 And swapped = 0
End Sub
To give an idea of what the output should look like, it should resemble something similar to this:
Code: (Select All)
Arial (TrueType) : arial.ttf
Arial Black (TrueType) : ariblk.ttf
Arial Bold (TrueType) : arialbd.ttf
Arial Bold Italic (TrueType) : arialbi.ttf
Arial Italic (TrueType) : ariali.ttf
Bahnschrift (TrueType) : bahnschrift.ttf
Calibri (TrueType) : calibri.ttf
Calibri Bold (TrueType) : calibrib.ttf
Calibri Bold Italic (TrueType) : calibriz.ttf
Calibri Italic (TrueType) : calibrii.ttf
Calibri Light (TrueType) : calibril.ttf
Calibri Light Italic (TrueType) : calibrili.ttf
Cambria & Cambria Math (TrueType) : cambria.ttc
Cambria Bold (TrueType) : cambriab.ttf
Cambria Bold Italic (TrueType) : cambriaz.ttf
Cambria Italic (TrueType) : cambriai.ttf
Candara (TrueType) : candara.ttf
Candara Bold (TrueType) : candarab.ttf
Candara Bold Italic (TrueType) : candaraz.ttf
Candara Italic (TrueType) : candarai.ttf
Candara Light (TrueType) : candaral.ttf
Candara Light Italic (TrueType) : candarali.ttf
Comic Sans MS (TrueType) : comic.ttf
Comic Sans MS Bold (TrueType) : comicbd.ttf
Comic Sans MS Bold Italic (TrueType) : comicz.ttf
Comic Sans MS Italic (TrueType) : comici.ttf
Consolas (TrueType) : consola.ttf
Consolas Bold (TrueType) : consolab.ttf
Consolas Bold Italic (TrueType) : consolaz.ttf
Consolas Italic (TrueType) : consolai.ttf
Constantia (TrueType) : constan.ttf
Constantia Bold (TrueType) : constanb.ttf
Constantia Bold Italic (TrueType) : constanz.ttf
Constantia Italic (TrueType) : constani.ttf
Corbel (TrueType) : corbel.ttf
Corbel Bold (TrueType) : corbelb.ttf
Corbel Bold Italic (TrueType) : corbelz.ttf
Corbel Italic (TrueType) : corbeli.ttf
Corbel Light (TrueType) : corbell.ttf
Corbel Light Italic (TrueType) : corbelli.ttf
Courier New (TrueType) : cour.ttf
Courier New Bold (TrueType) : courbd.ttf
Courier New Bold Italic (TrueType) : courbi.ttf
Courier New Italic (TrueType) : couri.ttf
Ebrima (TrueType) : ebrima.ttf
Ebrima Bold (TrueType) : ebrimabd.ttf
Franklin Gothic Medium (TrueType) : framd.ttf
Franklin Gothic Medium Italic (TrueType) : framdit.ttf
Gabriola (TrueType) : Gabriola.ttf
Gadugi (TrueType) : gadugi.ttf
Gadugi Bold (TrueType) : gadugib.ttf
Georgia (TrueType) : georgia.ttf
Georgia Bold (TrueType) : georgiab.ttf
Georgia Bold Italic (TrueType) : georgiaz.ttf
Georgia Italic (TrueType) : georgiai.ttf
Holo MDL2 Assets (TrueType) : holomdl2.ttf
Impact (TrueType) : impact.ttf
Ink Free (TrueType) : Inkfree.ttf
Javanese Text (TrueType) : javatext.ttf
Leelawadee UI (TrueType) : leelawui.ttf
Leelawadee UI Bold (TrueType) : leelauib.ttf
Leelawadee UI Semilight (TrueType) : leeluisl.ttf
Lucida Console (TrueType) : lucon.TTF
Lucida Sans Unicode (TrueType) : l_10646.ttf
Malgun Gothic (TrueType) : malgun.ttf
Malgun Gothic Bold (TrueType) : malgunbd.ttf
Malgun Gothic SemiLight (TrueType) : malgunsl.ttf
Microsoft Himalaya (TrueType) : himalaya.ttf
Microsoft JhengHei & Microsoft JhengHei UI (TrueType) : msjh.ttc
Microsoft JhengHei Bold & Microsoft JhengHei UI Bold (TrueType) : msjhbd.ttc
Microsoft JhengHei Light & Microsoft JhengHei UI Light (TrueType) : msjhl.ttc
Microsoft New Tai Lue (TrueType) : ntailu.ttf
Microsoft New Tai Lue Bold (TrueType) : ntailub.ttf
Microsoft PhagsPa (TrueType) : phagspa.ttf
Microsoft PhagsPa Bold (TrueType) : phagspab.ttf
Microsoft Sans Serif (TrueType) : micross.ttf
Microsoft Tai Le (TrueType) : taile.ttf
Microsoft Tai Le Bold (TrueType) : taileb.ttf
Microsoft YaHei & Microsoft YaHei UI (TrueType) : msyh.ttc
Microsoft YaHei Bold & Microsoft YaHei UI Bold (TrueType) : msyhbd.ttc
Microsoft YaHei Light & Microsoft YaHei UI Light (TrueType) : msyhl.ttc
Microsoft Yi Baiti (TrueType) : msyi.ttf
MingLiU-ExtB & PMingLiU-ExtB & MingLiU_HKSCS-ExtB (TrueType) : mingliub.ttc
Modern (All res) : modern.fon
Mongolian Baiti (TrueType) : monbaiti.ttf
MS Gothic & MS UI Gothic & MS PGothic (TrueType) : msgothic.ttc
MV Boli (TrueType) : mvboli.ttf
Myanmar Text (TrueType) : mmrtext.ttf
Myanmar Text Bold (TrueType) : mmrtextb.ttf
Nirmala UI (TrueType) : Nirmala.ttf
Nirmala UI Bold (TrueType) : NirmalaB.ttf
Nirmala UI Semilight (TrueType) : NirmalaS.ttf
Palatino Linotype (TrueType) : pala.ttf
Palatino Linotype Bold (TrueType) : palab.ttf
Palatino Linotype Bold Italic (TrueType) : palabi.ttf
Palatino Linotype Italic (TrueType) : palai.ttf
Roman (All res) : roman.fon
Sans Serif Collection (TrueType) : SansSerifCollection.ttf
Script (All res) : script.fon
Segoe Fluent Icons (TrueType) : SegoeIcons.ttf
Segoe MDL2 Assets (TrueType) : segmdl2.ttf
Segoe Print (TrueType) : segoepr.ttf
Segoe Print Bold (TrueType) : segoeprb.ttf
Segoe Script (TrueType) : segoesc.ttf
Segoe Script Bold (TrueType) : segoescb.ttf
Segoe UI (TrueType) : segoeui.ttf
Segoe UI Black (TrueType) : seguibl.ttf
Segoe UI Black Italic (TrueType) : seguibli.ttf
Segoe UI Bold (TrueType) : segoeuib.ttf
Segoe UI Bold Italic (TrueType) : segoeuiz.ttf
Segoe UI Emoji (TrueType) : seguiemj.ttf
Segoe UI Historic (TrueType) : seguihis.ttf
Segoe UI Italic (TrueType) : segoeuii.ttf
Segoe UI Light (TrueType) : segoeuil.ttf
Segoe UI Light Italic (TrueType) : seguili.ttf
Segoe UI Semibold (TrueType) : seguisb.ttf
Segoe UI Semibold Italic (TrueType) : seguisbi.ttf
Segoe UI Semilight (TrueType) : segoeuisl.ttf
Segoe UI Semilight Italic (TrueType) : seguisli.ttf
Segoe UI Symbol (TrueType) : seguisym.ttf
Segoe UI Variable (TrueType) : SegUIVar.ttf
SimSun & NSimSun (TrueType) : simsun.ttc
SimSun-ExtB (TrueType) : simsunb.ttf
Sitka Text (TrueType) : SitkaVF.ttf
Sitka Text Italic (TrueType) : SitkaVF-Italic.ttf
Sylfaen (TrueType) : sylfaen.ttf
Symbol (TrueType) : symbol.ttf
Tahoma (TrueType) : tahoma.ttf
Tahoma Bold (TrueType) : tahomabd.ttf
Times New Roman (TrueType) : times.ttf
Times New Roman Bold (TrueType) : timesbd.ttf
Times New Roman Bold Italic (TrueType) : timesbi.ttf
Times New Roman Italic (TrueType) : timesi.ttf
Trebuchet MS (TrueType) : trebuc.ttf
Trebuchet MS Bold (TrueType) : trebucbd.ttf
Trebuchet MS Bold Italic (TrueType) : trebucbi.ttf
Trebuchet MS Italic (TrueType) : trebucit.ttf
Verdana (TrueType) : verdana.ttf
Verdana Bold (TrueType) : verdanab.ttf
Verdana Bold Italic (TrueType) : verdanaz.ttf
Verdana Italic (TrueType) : verdanai.ttf
Webdings (TrueType) : webdings.ttf
Wingdings (TrueType) : wingding.ttf
Yu Gothic Bold & Yu Gothic UI Semibold & Yu Gothic UI Bold (TrueType) : YuGothB.ttc
Yu Gothic Light & Yu Gothic UI Light (TrueType) : YuGothL.ttc
Yu Gothic Medium & Yu Gothic UI Regular (TrueType) : YuGothM.ttc
Yu Gothic Regular & Yu Gothic UI Semilight (TrueType) : YuGothR.ttc
Cascadia Code Regular (TrueType) : CascadiaCode.ttf
Cascadia Mono Regular (TrueType) : CascadiaMono.ttf
Agency FB Bold (TrueType) : AGENCYB.TTF
Agency FB (TrueType) : AGENCYR.TTF
Algerian (TrueType) : ALGER.TTF
Book Antiqua Bold (TrueType) : ANTQUAB.TTF
Book Antiqua Bold Italic (TrueType) : ANTQUABI.TTF
Book Antiqua Italic (TrueType) : ANTQUAI.TTF
Arial Narrow (TrueType) : ARIALN.TTF
Arial Narrow Bold (TrueType) : ARIALNB.TTF
Arial Narrow Bold Italic (TrueType) : ARIALNBI.TTF
Arial Narrow Italic (TrueType) : ARIALNI.TTF
Arial Rounded MT Bold (TrueType) : ARLRDBD.TTF
Baskerville Old Face (TrueType) : BASKVILL.TTF
Bauhaus 93 (TrueType) : BAUHS93.TTF
Bell MT (TrueType) : BELL.TTF
Bell MT Bold (TrueType) : BELLB.TTF
Bell MT Italic (TrueType) : BELLI.TTF
Bernard MT Condensed (TrueType) : BERNHC.TTF
Book Antiqua (TrueType) : BKANT.TTF
Bodoni MT Bold (TrueType) : BOD_B.TTF
Bodoni MT Bold Italic (TrueType) : BOD_BI.TTF
Bodoni MT Black Italic (TrueType) : BOD_BLAI.TTF
Bodoni MT Black (TrueType) : BOD_BLAR.TTF
Bodoni MT Condensed Bold (TrueType) : BOD_CB.TTF
Bodoni MT Condensed Bold Italic (TrueType) : BOD_CBI.TTF
Bodoni MT Condensed Italic (TrueType) : BOD_CI.TTF
Bodoni MT Condensed (TrueType) : BOD_CR.TTF
Bodoni MT Italic (TrueType) : BOD_I.TTF
Bodoni MT Poster Compressed (TrueType) : BOD_PSTC.TTF
Bodoni MT (TrueType) : BOD_R.TTF
Bookman Old Style (TrueType) : BOOKOS.TTF
Bookman Old Style Bold (TrueType) : BOOKOSB.TTF
Bookman Old Style Bold Italic (TrueType) : BOOKOSBI.TTF
Bookman Old Style Italic (TrueType) : BOOKOSI.TTF
Bradley Hand ITC (TrueType) : BRADHITC.TTF
Britannic Bold (TrueType) : BRITANIC.TTF
Berlin Sans FB Bold (TrueType) : BRLNSB.TTF
Berlin Sans FB Demi Bold (TrueType) : BRLNSDB.TTF
Berlin Sans FB (TrueType) : BRLNSR.TTF
Broadway (TrueType) : BROADW.TTF
Brush Script MT Italic (TrueType) : BRUSHSCI.TTF
Bookshelf Symbol 7 (TrueType) : BSSYM7.TTF
Californian FB Bold (TrueType) : CALIFB.TTF
Californian FB Italic (TrueType) : CALIFI.TTF
Californian FB (TrueType) : CALIFR.TTF
Calisto MT (TrueType) : CALIST.TTF
Calisto MT Bold (TrueType) : CALISTB.TTF
Calisto MT Bold Italic (TrueType) : CALISTBI.TTF
Calisto MT Italic (TrueType) : CALISTI.TTF
Castellar (TrueType) : CASTELAR.TTF
Century Schoolbook (TrueType) : CENSCBK.TTF
Centaur (TrueType) : CENTAUR.TTF
Century (TrueType) : CENTURY.TTF
Chiller (TrueType) : CHILLER.TTF
Colonna MT (TrueType) : COLONNA.TTF
Cooper Black (TrueType) : COOPBL.TTF
Copperplate Gothic Bold (TrueType) : COPRGTB.TTF
Copperplate Gothic Light (TrueType) : COPRGTL.TTF
Curlz MT (TrueType) : CURLZ___.TTF
Dubai Bold (TrueType) : DUBAI-BOLD.TTF
Dubai Light (TrueType) : DUBAI-LIGHT.TTF
Dubai Medium (TrueType) : DUBAI-MEDIUM.TTF
Dubai Regular (TrueType) : DUBAI-REGULAR.TTF
Elephant (TrueType) : ELEPHNT.TTF
Elephant Italic (TrueType) : ELEPHNTI.TTF
Engravers MT (TrueType) : ENGR.TTF
Eras Bold ITC (TrueType) : ERASBD.TTF
Eras Demi ITC (TrueType) : ERASDEMI.TTF
Eras Light ITC (TrueType) : ERASLGHT.TTF
Eras Medium ITC (TrueType) : ERASMD.TTF
Felix Titling (TrueType) : FELIXTI.TTF
Forte (TrueType) : FORTE.TTF
Franklin Gothic Book (TrueType) : FRABK.TTF
Franklin Gothic Book Italic (TrueType) : FRABKIT.TTF
Franklin Gothic Demi (TrueType) : FRADM.TTF
Franklin Gothic Demi Cond (TrueType) : FRADMCN.TTF
Franklin Gothic Demi Italic (TrueType) : FRADMIT.TTF
Franklin Gothic Heavy (TrueType) : FRAHV.TTF
Franklin Gothic Heavy Italic (TrueType) : FRAHVIT.TTF
Franklin Gothic Medium Cond (TrueType) : FRAMDCN.TTF
Freestyle Script (TrueType) : FREESCPT.TTF
French Script MT (TrueType) : FRSCRIPT.TTF
Footlight MT Light (TrueType) : FTLTLT.TTF
Garamond (TrueType) : GARA.TTF
Garamond Bold (TrueType) : GARABD.TTF
Garamond Italic (TrueType) : GARAIT.TTF
Gigi (TrueType) : GIGI.TTF
Gill Sans MT Bold Italic (TrueType) : GILBI___.TTF
Gill Sans MT Bold (TrueType) : GILB____.TTF
Gill Sans MT Condensed (TrueType) : GILC____.TTF
Gill Sans MT Italic (TrueType) : GILI____.TTF
Gill Sans Ultra Bold Condensed (TrueType) : GILLUBCD.TTF
Gill Sans Ultra Bold (TrueType) : GILSANUB.TTF
Gill Sans MT (TrueType) : GIL_____.TTF
Gloucester MT Extra Condensed (TrueType) : GLECB.TTF
Gill Sans MT Ext Condensed Bold (TrueType) : GLSNECB.TTF
Century Gothic (TrueType) : GOTHIC.TTF
Century Gothic Bold (TrueType) : GOTHICB.TTF
Century Gothic Bold Italic (TrueType) : GOTHICBI.TTF
Century Gothic Italic (TrueType) : GOTHICI.TTF
Goudy Old Style (TrueType) : GOUDOS.TTF
Goudy Old Style Bold (TrueType) : GOUDOSB.TTF
Goudy Old Style Italic (TrueType) : GOUDOSI.TTF
Goudy Stout (TrueType) : GOUDYSTO.TTF
Harlow Solid Italic (TrueType) : HARLOWSI.TTF
Harrington (TrueType) : HARNGTON.TTF
Haettenschweiler (TrueType) : HATTEN.TTF
High Tower Text (TrueType) : HTOWERT.TTF
High Tower Text Italic (TrueType) : HTOWERTI.TTF
Imprint MT Shadow (TrueType) : IMPRISHA.TTF
Informal Roman (TrueType) : INFROMAN.TTF
Blackadder ITC (TrueType) : ITCBLKAD.TTF
Edwardian Script ITC (TrueType) : ITCEDSCR.TTF
Kristen ITC (TrueType) : ITCKRIST.TTF
Jokerman (TrueType) : JOKERMAN.TTF
Juice ITC (TrueType) : JUICE___.TTF
Kunstler Script (TrueType) : KUNSTLER.TTF
Wide Latin (TrueType) : LATINWD.TTF
Lucida Bright (TrueType) : LBRITE.TTF
Lucida Bright Demibold (TrueType) : LBRITED.TTF
Lucida Bright Demibold Italic (TrueType) : LBRITEDI.TTF
Lucida Bright Italic (TrueType) : LBRITEI.TTF
Lucida Calligraphy Italic (TrueType) : LCALLIG.TTF
Leelawadee (TrueType) : LEELAWAD.TTF
Leelawadee Bold (TrueType) : LEELAWDB.TTF
Lucida Fax Regular (TrueType) : LFAX.TTF
Lucida Fax Demibold (TrueType) : LFAXD.TTF
Lucida Fax Demibold Italic (TrueType) : LFAXDI.TTF
Lucida Fax Italic (TrueType) : LFAXI.TTF
Lucida Handwriting Italic (TrueType) : LHANDW.TTF
Lucida Sans Regular (TrueType) : LSANS.TTF
Lucida Sans Demibold Roman (TrueType) : LSANSD.TTF
Lucida Sans Demibold Italic (TrueType) : LSANSDI.TTF
Lucida Sans Italic (TrueType) : LSANSI.TTF
Lucida Sans Typewriter Regular (TrueType) : LTYPE.TTF
Lucida Sans Typewriter Bold (TrueType) : LTYPEB.TTF
Lucida Sans Typewriter Bold Oblique (TrueType) : LTYPEBO.TTF
Lucida Sans Typewriter Oblique (TrueType) : LTYPEO.TTF
Magneto Bold (TrueType) : MAGNETOB.TTF
Maiandra GD (TrueType) : MAIAN.TTF
Matura MT Script Capitals (TrueType) : MATURASC.TTF
Mistral (TrueType) : MISTRAL.TTF
Modern No. 20 (TrueType) : MOD20.TTF
Microsoft Uighur Bold (TrueType) : MSUIGHUB.TTF
Microsoft Uighur (TrueType) : MSUIGHUR.TTF
Monotype Corsiva (TrueType) : MTCORSVA.TTF
MT Extra (TrueType) : MTEXTRA.TTF
Niagara Engraved (TrueType) : NIAGENG.TTF
Niagara Solid (TrueType) : NIAGSOL.TTF
OCR A Extended (TrueType) : OCRAEXT.TTF
Old English Text MT (TrueType) : OLDENGL.TTF
Onyx (TrueType) : ONYX.TTF
MS Outlook (TrueType) : OUTLOOK.TTF
Palace Script MT (TrueType) : PALSCRI.TTF
Papyrus (TrueType) : PAPYRUS.TTF
Parchment (TrueType) : PARCHM.TTF
Perpetua Bold Italic (TrueType) : PERBI___.TTF
Perpetua Bold (TrueType) : PERB____.TTF
Perpetua Italic (TrueType) : PERI____.TTF
Perpetua Titling MT Bold (TrueType) : PERTIBD.TTF
Perpetua Titling MT Light (TrueType) : PERTILI.TTF
Perpetua (TrueType) : PER_____.TTF
Playbill (TrueType) : PLAYBILL.TTF
Poor Richard (TrueType) : POORICH.TTF
Pristina (TrueType) : PRISTINA.TTF
Rage Italic (TrueType) : RAGE.TTF
Ravie (TrueType) : RAVIE.TTF
MS Reference Sans Serif (TrueType) : REFSAN.TTF
MS Reference Specialty (TrueType) : REFSPCL.TTF
Rockwell Condensed Bold (TrueType) : ROCCB___.TTF
Rockwell Condensed (TrueType) : ROCC____.TTF
Rockwell (TrueType) : ROCK.TTF
Rockwell Bold (TrueType) : ROCKB.TTF
Rockwell Bold Italic (TrueType) : ROCKBI.TTF
Rockwell Extra Bold (TrueType) : ROCKEB.TTF
Rockwell Italic (TrueType) : ROCKI.TTF
Century Schoolbook Bold (TrueType) : SCHLBKB.TTF
Century Schoolbook Bold Italic (TrueType) : SCHLBKBI.TTF
Century Schoolbook Italic (TrueType) : SCHLBKI.TTF
Script MT Bold (TrueType) : SCRIPTBL.TTF
Showcard Gothic (TrueType) : SHOWG.TTF
Snap ITC (TrueType) : SNAP____.TTF
Stencil (TrueType) : STENCIL.TTF
Tw Cen MT Bold Italic (TrueType) : TCBI____.TTF
Tw Cen MT Bold (TrueType) : TCB_____.TTF
Tw Cen MT Condensed Bold (TrueType) : TCCB____.TTF
Tw Cen MT Condensed Extra Bold (TrueType) : TCCEB.TTF
Tw Cen MT Condensed (TrueType) : TCCM____.TTF
Tw Cen MT Italic (TrueType) : TCMI____.TTF
Tw Cen MT (TrueType) : TCM_____.TTF
Tempus Sans ITC (TrueType) : TEMPSITC.TTF
Viner Hand ITC (TrueType) : VINERITC.TTF
Vivaldi Italic (TrueType) : VIVALDII.TTF
Vladimir Script (TrueType) : VLADIMIR.TTF
Wingdings 2 (TrueType) : WINGDNG2.TTF
Wingdings 3 (TrueType) : WINGDNG3.TTF
PSPath : Microsoft.PowerShell.Core\Registry::HKEY_LOCAL_
MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Fonts
PSParentPath : Microsoft.PowerShell.Core\Registry::HKEY_LOCAL_
MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion
PSChildName : Fonts
PSDrive : HKLM
PSProvider : Microsoft.PowerShell.Core\Registry