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

</script>

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.

Anonymous