How can I get a font's filename from the font's name?

Question

Hello all. I'm trying to copy a font from C:\WINDOWS\Fonts to another directory, but it's not always possible. To copy it I need the font's filename but, through Javascript, I can only get its name (not to confuse with the file name), family or PostScript name. For instance, "OCR A Extended"'s filename is "OCRAEXT.TTF", but I couldn't find a way to resolve the second name from the first (and tried a lot of things).
My first workaround has been opening a File.openDialog when the font's name and filename do not match, so the user goes to "WINDOWS\Fonts" and selects the file, but this directory is a bit tricky and will never accept the selection. However, if the font is any other directory that "Fonts", the file can be selected without problems.
I can figure some ways to solve this (for instance, asking the user to get the filename by himself and type it in a text box) but I'd rather ask here just in case there's an easy way I couldn't find out in the manual neither in the forums.
Many thanks in advance

Answer 1

I have managed to get a file with a complete list of fonts with thier filenames using vbs
It creates Fontlist.txt on the desktop, you could even call the script from the jsx and read the values in once the file has been created.
Set wshShell = WScript.CreateObject("WScript.Shell")
Set wshSysEnv = wshShell.Environment("PROCESS")
sMyFile = "c:" & wshSysEnv("HOMEPATH") & "\Desktop\Fontlist.txt"
Dim objFileSystem, objOutputFile
Dim strOutputFile
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(sMyFile, TRUE)
Dim str
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Fonts"
objReg.EnumValues HKEY_LOCAL_MACHINE, _
strKeyPath,arrEntryNames,arrEntryZZZ
For Each entry in arrEntryNames
str = wshshell.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\Fonts\" & entry)
       objOutputFile.WriteLine(entry & "," & str)
Next
objOutputFile.Close