Skip to content

Instantly share code, notes, and snippets.

@Navisho

Navisho/new_gist_file.vbs

Created October 3, 2013 21:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Navisho/6817525 to your computer and use it in GitHub Desktop.
Save Navisho/6817525 to your computer and use it in GitHub Desktop.
Download ZIP
Install Font from VB.NET
Raw
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
WScript.Echo "Hit any <Enter> to quit!"
WScript.StdIn.Read(1
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment