
Originally Posted by
simons2009
I think we are on the right track.
But when i run the new script i get the following dialogs:
- Font is in c:\wInteg6\IbsFont.fon
- Line 10 Car 3 Error: Path not found Code: 800A004C Source: VBScript error.
I think the issue is the value data in the registry contanis c:\wInteg6\IbsFont.fon and not just the path e.g. c:\wInteg6\ can we somehow get the vbs script to remove the IbsFont.fon so it will backup the folder correctly.
Thankyou so far Steve.

Code:
Dim x
Dim strPath
set oFSO=createobject("scripting.filesystemobject")
set oShell=createobject("wscript.shell")
on error resume next
sFolder=oShell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\IbsFont")
on error goto 0
if sFolder="" then
wscript.echo "Font not installed"
else
wscript.echo "Font is in " & sFolder
x = instrrev(sFolder,"\")
strPath=Left(sFolder,x)
ofso.copyfolder strPath , "c:\temp\winteg", true
end if
something along those lines ?