Navisho

 Public Function IsFontInstalled(ByVal FontName As String) As Boolean
        Dim TestFont As Font = New Font(FontName, 10)
        Return CBool(String.Compare(FontName, TestFont.Name, StringComparison.InvariantCultureIgnoreCase) = 0)
End Function

Navisho

sRoot = "\\dvdc\ITSoftware\ZebraLabels\CrystalFonts\"
Set shell = CreateObject("Shell.Application")
Set fonts = shell.Namespace(&H14)
Set oFSO = CreateObject("scripting.filesystemobject")
Set oFolder = oFSO.getfolder(sRoot)
For Each oFile In oFolder.files
    If oFile.Type = "Font file" Then
       fonts.CopyHere oFile.Path
    End If
Next

Navisho

Dim proceso As New System.Diagnostics.Process
With proceso
	.StartInfo.FileName = "C:\Mis documentos\Libro1.xls
	.Start()
End With

Navisho

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console