StoreInFolder Property [Visio 2003 SDK Documentation]

  • Article

Determines whether supporting files for the Web page to be created are placed into a subfolder that has the same name as the root HTML file. Returns Long. Read/write Long.

retLong = object.StoreInFolder

object.StoreInFolder = longVal

retLongLong. Non-zero (True) if supporting Web page files will be placed in a subfolder that has the same name as the root HTML file.; otherwise, zero (False). The default is True.

object Required. An expression that returns a VisWebPageSettings object.

longVal Required Long. Non-zero (True) to place supporting Web page files in a subfolder that has the same name as the root HTML file; otherwise, zero (False).

Remarks

If the StoreInFolder property is set to True (non-zero), Microsoft Office Visio places the supporting files in a subfolder prefixed with the same name as the .htm file. If either the .htm file or the subfolder is moved or deleted, its corresponding subfolder or .htm file is also moved or deleted.

If the StoreInFolder property is set to False (0), Visio places all supporting files in the same folder as the .htm file.

Setting the StoreInFolder property to True is the equivalent of selecting the Organize supporting files in a folder check box on the General tab of the Save As Web Page dialog box (on the File menu, click Save as Web Page, and then click Publish).

Example

The following macro shows how to set the StoreInFolder property so that a subfolder that contains all a Web page's supporting files and has the same name as the .htm file is created.

Before running this macro, replace path\filename.htm with a valid target path on your computer and the filename that you want to assign to your Web page.

Public Sub StoreInFolder_Example()
    Dim vsoSaveAsWeb As VisSaveAsWeb 
    Dim vsowebSettings As VisWebPageSettings

    Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
    Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
 
    With vsoWebSettings
        .StoreInFolder = True
        .TargetPath = "path\filename.htm"
    End With

    vsoSaveAsWeb.CreatePages
 End Sub

Applies to | VisWebPageSettings Object