Click here to Skip to main content
Click here to Skip to main content

Automating the Deployment of an Office InfoPath Form Templates

, 2 May 2007
Rate this:
Please Sign up or sign in to vote.
This tool move the previously-published infopath form templates to a new location.

Introduction

Do you have several InfoPath forms and deployed to one location (Server)? Do you want to move them to another location? It is a pain, don't you think?? Here is the tool to deploy the InfoPath forms to any other network location.

Screenshot - forms_publishing_tool.jpg

Background

I know, some one might be thinking why we need several forms; can't you have multiple views in one form and deploy that form to server? Here is the problem we had with multiple views sharing the one data source. If you have a data field that is shared by multiple views and each view use that field differently, if one view changes the field value the other views will also affect with the change. So we decided to go with different forms for each view. The next hectic job is deploying them. Especially when you have multiple environments like development, QA and production, it is very tough to publish manually to each environment. I found an article on Microsoft site to automate the forms publishing. Unfortunately the code was in Jscript, and then I decided to develop a tool.

Using the code

Sub FixupXSN(ByVal xsnInputPath As String, ByVal xsnOutputPath As String, ByVal publishUrl As String)

Try

If Not File.Exists(xsnInputPath) Then

MessageBox.Show("File does not exist: " + xsnInputPath)

Exit Sub

End If

' Create temporary folder and explode the XSN

'Dim tempFolderPath = Directory.CreateDirectory(PathCombine(Path.GetTempPath, Path.GetTempFileName)).FullName

Dim tempFolderPath = PathCombine(Path.GetTempPath, Path.GetFileNameWithoutExtension(Path.GetTempFileName))

tempFolderPath = Directory.CreateDirectory(tempFolderPath).FullName

ExtractFilesFromXSN(xsnInputPath, tempFolderPath)

' Modify the XSF in place 

Dim xsfPath As String = PathCombine(tempFolderPath, "manifest.xsf")

Dim hsAttributesAndValues As New Hashtable

hsAttributesAndValues.Add("publishUrl", publishUrl)

hsAttributesAndValues.Add("publishSaveUrl", xsnOutputPath)

' Generate the new XSN

CreateXSNFromFiles(tempFolderPath, "manifest.xsf", xsnOutputPath)

' Cleanup

'File.Delete(tempFolderPath)

Catch ex As Exception

ShowMessage(ex.Message)

Trace(ex.StackTrace)

End Try

End Sub

Points of Interest

I learned how to use the CABSDK tool in this development process.

References

http://msdn2.microsoft.com/en-us/library/aa192521(office.11).aspx

History

4/20/2007 Created.

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

Srinivas-Miriyala
Software Developer (Senior)
United States United States
No Biography provided

Comments and Discussions

 
GeneralCABSDK PinmemberCrooze2111-Dec-07 6:43 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.141223.1 | Last Updated 2 May 2007
Article Copyright 2007 by Srinivas-Miriyala
Everything else Copyright © CodeProject, 1999-2014
Layout: fixed | fluid