‘‘‘   FILENAME:Update_FontMap.vbs
‘‘‘====================================================================
‘‘‘   AUTHOR: Richard Binning   
‘‘‘   DATE:  01/16/2008
‘‘‘   DEVNOTE: Initial Build for 2008 products
‘‘‘
‘‘‘   DISCLAIMER:
‘‘‘   Permission to use, copy, modify, and distribute this software 
‘‘‘   for any purpose and without fee is hereby granted, provided 
‘‘‘   that the above copyright notice appears in all copies and that 
‘‘‘   both that copyright notice and this permission notice appear in 
‘‘‘   all supporting documentation.
‘‘‘
‘‘‘   THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
‘‘‘   WARRANTY.  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
‘‘‘   PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
‘‘‘
‘‘‘====================================================================
‘‘‘   DESCRIPTION: Update_FontMap.vbs ? Routine compares local fontmap with
‘‘‘   Office master fontmap file of same name 
‘‘‘
‘‘‘   CALLED FROM: 
‘‘‘   USAGE:  1.) Ensure Place this function in scripted startup routine.
‘‘‘   PREREQ: None.
‘‘‘   VERSION: This version hard coded for Revit Architecture, modify product
‘‘‘            for MEP or Structures See ?strClientFontMap? variable
‘‘‘====================================================================
Sub Update_Fontmap()
	Dim fs, objMasterFolder, objMasterFiles, objMasterFile
	Dim strClientFontMap, objClientFile

	Set fs = CreateObject("Scripting.FileSystemObject")
	Set objMasterFolder = fs.GetFolder("x:\RevitStds")
	Set colFiles = objMasterFolder.Files

	For Each objMasterFile in colFiles
	    strClientFontMap = "C:\Program Files\Revit Architecture 2008\Data\shxfontmap.txt"
	    Set objClientFile = fs.GetFile(strClientFontMap)
	    If objMasterFile.Name = objClientFile.Name then
		' Got Match
		    If objClientFile.DateLastModified<objMasterFile.DateLastModified Then
			'copy standard fontmap to local client because Master File os newer
			objMasterFile.Copy(strClientFontMap)
		    Else
			' do nothing because Local File Newer
		    End If
	    End If
	    Set objClientFile = Nothing
	Next

	Set colFiles = Nothing
	Set objMasterFolder = Nothing
	Set fs = Nothing
end sub