Compartir a través de

Propiedad VisWebPageSettings.StoreInFolder

  • Artículo

Determina si los archivos auxiliares para la página web que se va a crear se colocan en una subcarpeta que tiene el mismo nombre que el archivo HTML raíz. Lectura y escritura.

Sintaxis

expresión. StoreInFolder

Expresión Expresión que devuelve un objeto VisWebPageSettings .

Valor devuelto

Long

Comentarios

Establezca StoreInFolder en un valor distinto de cero (True) para colocar los archivos de página web auxiliares en una subcarpeta que tenga el mismo nombre que el archivo HTML raíz; De lo contrario, establézcalo en cero (False).

Si establece la propiedad StoreInFolder en True (distinto de cero), Microsoft Visio coloca los archivos auxiliares en una subcarpeta con el mismo nombre que el archivo .htm. Si se mueve o elimina el archivo .htm o la subcarpeta, también se mueve o elimina su subcarpeta correspondiente o .htm archivo.

Si establece la propiedad StoreInFolder en False (0), Visio coloca todos los archivos auxiliares en la misma carpeta que el archivo .htm.

Establecer la propiedad StoreInFolder en True equivale a seleccionar la casilla Organizar archivos auxiliares en una carpeta en la pestaña General del cuadro de diálogo Guardar como página web (ficha >BackstageButtonGuardar como>guardar como tipo lista >Página web (*.htm;*.html)>Publicar).

Ejemplo:

En la macro siguiente se muestra cómo establecer la propiedad StoreInFolder para que se cree una subcarpeta que contenga todos los archivos auxiliares de una página web y tenga el mismo nombre que el archivo .htm.

Antes de ejecutar esta macro, reemplace por path\filename.htm una ruta de acceso de destino válida en el equipo y el nombre de archivo que desea asignar a la página web.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.