Skip to content

Instantly share code, notes, and snippets.

@Navisho
Navisho / new_gist_file.vbs
Created Oct 3, 2013
Check if font is installed
View new_gist_file.vbs
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
Navisho / new_gist_file.vbs
Created Oct 3, 2013
Install Font from VB.NET
View new_gist_file.vbs
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
Navisho / new_gist_file.vbs
Created Oct 3, 2013
Abrir un archivo con el programa asosiado
View new_gist_file.vbs
Dim proceso As New System.Diagnostics.Process
With proceso
.StartInfo.FileName = "C:\Mis documentos\Libro1.xls
.Start()
End With
@Navisho
Navisho / 0_reuse_code.js
Created Oct 3, 2013
Here are some things you can do with Gists in GistBox.
View 0_reuse_code.js
// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console
You can’t perform that action at this time.