'
' This example shows how to create and save an add-on package.
'
sPath = Application.InstallationPath( siWorkgroupPath )
if sPath = "" then
' If the workgroup doesn't already exist, then add it
tmppath = XSIUtils.BuildPath( Application.InstallationPath(siUserPath), "TempWorkgrp" )
set fso = CreateObject( "Scripting.FileSystemObject" )
if Not fso.FolderExists(tmppath) then
fso.CreateFolder tmppath
end if
Application.AddWorkgroup tmppath
sPath = Application.InstallationPath( siWorkgroupPath )
end if
sHTMLName = makeHTMLPage()
' Create the add-on package object
set oAddOn = Application.CreateAddon
' Add the HTML page to the add-on package
oAddOn.AddOtherItem sHTMLName
' Save the package in the Addons directory
sPath = XSIUtils.BuildPath( sPath, "Addons" )
XSIUtils.EnsureFolderExists sPath
sAddOnFileName = XSIUtils.BuildPath( sPath, "myHelpPkg.xsiaddon" )
oAddOn.Save sAddOnFileName
Application.LogMessage "Created add-on file: " & sAddOnFileName
' Install the add-on package containing the HTML page
Application.InstallAddOn sAddOnFileName, siWorkgroupAddonPath
' Comment out the following line if you want to see the add-on file
' (you will have to uninstall the add-on manually):
Application.UnInstallAddon sAddOnFileName
' **********************************
' This function just provide the means to remove the details of
' creating the HTML page.
function makeHTMLPage()
' Build the filename & path
sUserPath = Application.InstallationPath( siUserPath )
sHelpFileName = XSIUtils.BuildPath( sUserPath, "Data", "HelpMe.html" )
' Create a standard hello world script file
set fso = CreateObject( "Scripting.FileSystemObject" )
set fHWFile = fso.CreateTextFile( sHelpFileName )
fHWFile.WriteLine "<html>"
fHWFile.WriteLine "<head>"
fHWFile.WriteLine vbTab & "<title>Help Page for Testing Add-ons</title>"
fHWFile.WriteLine "</head>"
fHWFile.WriteLine "<body>"
fHWFile.WriteLine vbTab & "<p>Help! I'm trapped inside this HTML code!</p>"
fHWFile.WriteLine "</body>"
fHWFile.WriteLine "</html>"
fHWFile.Close
' Return the name of the new html page
makeHTMLPage = sHelpFileName
end function |