Skip to content

Instantly share code, notes, and snippets.

Navisho

Block or report user

Report or block Navisho

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@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.