This topic has not yet been rated - Rate this topic

Application.CacheSolution Method

Office 2007

Examines the form template in the cache and, if necessary, updates it from the published location of the form template.

Version Information
Version Added: InfoPath 2003

Syntax

expression.CacheSolution(bstrSolutionURI)

expression An expression that returns a Application object.

Parameters

Name	Required/Optional	Data Type	Description
bstrSolutionURI	Required	String	The string that specifies the Uniform Resource Identifier (URI) of the form template. This parameter can be specified as a form definition (.xsf) file or a form template (.xsn) file.

Return Value
Nothing

Remarks

If the form template that currently exists in the cache matches the form template from the published location, no caching takes place. If the computer is offline and the form is already in the cache, the cache is kept and no update will occur.

Example

In the following Visual Basic for Applications (VBA) example, the CacheSolution method of the Application object is used to cache a form template:

Visual Basic for Applications

Visual Basic for Applications
`Public Sub CacheFormTemplate() Dim I As Integer Dim objApp As Object Dim aryForms(2) As String ' Create a reference to the Application object. Set objApp = CreateObject("InfoPath.Application") ' Populate the array with form template locations. aryForms(0) = "\\MyServer\MyForms\MyForm.xsn" aryForms(1) = "\\MyServer\MyForms\manifest.xsf" ' Loop through the array and cache the form templates. For I = 0 To UBound(aryForms) - 1 objApp.CacheSolution(aryForms(I)) Next I End Sub`

Public Sub CacheFormTemplate()

   Dim I As Integer
   Dim objApp As Object
   Dim aryForms(2) As String

   ' Create a reference to the Application object.
   Set objApp = CreateObject("InfoPath.Application")

   ' Populate the array with form template locations.
   aryForms(0) = "\\MyServer\MyForms\MyForm.xsn"
   aryForms(1) = "\\MyServer\MyForms\manifest.xsf"

   ' Loop through the array and cache the form templates.
   For I = 0 To UBound(aryForms) - 1
      objApp.CacheSolution(aryForms(I))
   Next I

End Sub