Свойство Application.StartupPaths (Visio)

Получает или задает пути, по которым Microsoft Visio ищет сторонние и пользовательские надстройки для запуска при запуске приложения. Для чтения и записи.

Синтаксис

выражение. Пути запуска

выражение: переменная, представляющая объект Application.

Возвращаемое значение

String

Примечания

По умолчанию для свойства StartupPaths задано пустая строка ("").

Строка, передаваемая в свойство StartupPaths и получаемая из него, совпадает со строкой, показанной в диалоговом окне "Расположение файлов ". (Перейдите на вкладку "Файл ", щелкните "Параметры", щелкните "Дополнительно", а затем в разделе "Общие" щелкните "Расположения файлов".) Эта строка хранится в подразделе HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Visio\Application\StartupPath .

Когда приложение ищет сторонние и пользовательские файлы надстройки запуска, оно ищет все пути, указанные в свойстве StartupPaths , а также пути любых надстроек запуска, установленных при установке, и все вложенные папки этих путей. Если вы передаете свойство StartupPaths методу EnumDirectories , он возвращает полный список полных путей в переданных папках.

Задание свойства StartupPaths заменяет существующие значения для StartupPaths в диалоговом окне "Расположения файлов ". Чтобы сохранить существующие значения, получите существующую строку, а затем добавьте к ней новый путь к файлу, как показано в следующем коде:

Application.StartupPaths = Application.StartupPaths & ";" & "newpath ".

Предупреждение

Изменение реестра Windows любым способом, будь то в редакторе реестра или программным способом, всегда сопряжено с определенным риском. Неправильное изменение может привести к серьезным проблемам, для устранения которых может потребоваться переустановка операционной системы. Рекомендуется всегда создавать резервную копию реестра компьютера перед внесением изменений.

Пример

Этот макрос Microsoft Visual Basic для приложений (VBA) показывает, как использовать свойство StartupPaths для добавления пути в список путей запуска.

Public Sub StartupPaths_Example() 
  
    Dim strMessage As String 
    Dim strNewPath As String 
    Dim strStartupPath As String 
    Dim strTitle As String  
 
    'Get the path we want to add.  
    strStartupPath = Application.StartupPaths  
    strTitle = "StartupPaths"  
    strMessage = "The current content of the Visio Start-up paths box is:"  
    strMessage = strMessage & vbCrLf & strStartupPath  
    MsgBox strMessage, vbInformation + vbOKOnly, strTitle  
    strMessage = "Type in an additional path for Visio to look for add-ons. "  
         
    strNewPath = InputBox$(strMessage, strTitle)  
 
    'Make sure the folder exists and that it's not 
    'already in the Start-up paths box.  
    strMessage = ""  
 
    If strNewPath = ""  Then 
        strMessage = "You did not enter a path." 
    ElseIf InStr(strStartupPath, strNewPath)  Then 
        strMessage = "The path you specified is already in the Start-up paths box." 
    ElseIf Len(Dir$(strNewPath, vbDirectory)) = 0 And _  
                Len(Dir$(Application.Path & strNewPath, _  
                vbDirectory)) = 0 Then 
        strMessage = "The folder you typed does not exist (or is empty)." 
    Else 
        Application.StartupPaths = strStartupPath & ";" & strNewPath 
        strMessage = "We just added " & strNewPath & _  
                " to the startup paths." 
    End If 
       
    If strMessage <> ""  Then 
        MsgBox strMessage, vbExclamation + vbOKOnly, strTitle  
    End If 
  
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.