VBscript to VBA shell commands help

[mustangcoupe]

I got this from a diffrent froum. I am looking to check the font directory see if my font(3of9) exists and if it dosn't create it... If it does then do nothing...

I dont know shell commands at all... is this the best way to do it is this the correct correct commands/syntax for vba

Set WSHShell = CreateObject("WScript.Shell")
set FSO = CreateObject("Scripting.FileSystemObject")

sFontName = "sample.ttf"
sFontDescription = "Sample Font (TrueType)"

FSO.Copyfile "c:\" + sFontName, "c:\windows\fonts\" + sFontName
WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\" + sFontDescription, sFontName

--Todd


TechnicalUser pretending to be a programmer(shhh… the boss doesn’t know yet)

 

[EBGreen]

It looks syntactically correct in the portion of code that you posted. You should have other code before this to Dim the FSO and WSH object that you are using. You will also need a reference to the windows scripting runtime library.

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]