How hta Changed the Way I Deliver Builds - Part 9 - Kill Button

Ok, say I have an overriding need to kill the build to run the application in vanilla mode. Not something I would open up for all users, but this can be a handy addition to the dev hta file.

All you need to do is add the required button with the code:

<SCRIPT language="VBScript">
sub kill
Set objFSO = CreateObject("Scripting.FileSystemObject")
if CFGpath.FileExists("C:\Program Files (x86)\Bentley2004\Program\MicroStation\config\appl\std_appl.cfg") then
objFSO.DeleteFile("C:\Program Files (x86)\Bentley2004\Program\MicroStation\config\appl\std_appl.cfg")

end if

if CFGpath.FileExists("c:\Program Files (x86)\Bentley811\MicroStation V8i SS2\MicroStation\config\appl\std_appl.cfg") then
objFSO.DeleteFile("c:\Program Files (x86)\Bentley811\MicroStation V8i SS2\MicroStation\config\appl\std_appl.cfg")

end if 

end sub


You would need to expand this to make sure that all locations where the std_appl.cfg files are located. Remember, once you go to start the application again through the hta that the code puts the file back so the build works correctly.

More soon.