Application.StartupPaths-Eigenschaft (Visio)

Ruft die Pfade ab, in denen von Microsoft Visio nach Add-Ons von Drittanbietern oder von Benutzern gesucht wird, die beim Starten der Anwendung ausgeführt werden sollen, oder legt die Pfade fest. Lese-/Schreibzugriff.

Syntax

Ausdruck. StartupPaths

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Zeichenfolge

HinwBemerkungeneise

Die StartupPaths-Eigenschaft ist standardmäßig auf eine leere Zeichenfolge ("") festgelegt.

Die an die StartupPaths-Eigenschaft übergebene und von ihr empfangene Zeichenfolge ist mit der im Dialogfeld Dateispeicherorte angezeigten Zeichenfolge identisch. (Klicken Sie auf die Registerkarte Datei , klicken Sie auf Optionen, klicken Sie auf Erweitert, und klicken Sie dann unter Allgemein auf Dateispeicherorte.) Diese Zeichenfolge wird im HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Visio\Application\StartupPath Unterschlüssel gespeichert.

Wenn die Anwendung nach Add-On-Dateien für Drittanbieter- und Benutzerstarts sucht, sucht sie in allen Pfaden, die in der StartupPaths-Eigenschaft benannt sind, sowie nach den Pfaden aller beim Setup installierten Start-Add-Ons und allen Unterordnern dieser Pfade. Wenn Sie die StartupPaths-Eigenschaft an die EnumDirectories-Methode übergeben, wird eine vollständige Liste der vollqualifizierten Pfade in den übergebenen Ordnern zurückgegeben.

Durch Festlegen der StartupPaths-Eigenschaft werden vorhandene Werte für StartupPaths im Dialogfeld Dateispeicherorte ersetzt. Rufen Sie die vorhandene Zeichenfolge ab, und fügen Sie dann dieser Zeichenfolge den neuen Dateispeicherort wie im folgenden Code an, um vorhandene Werte beizubehalten:

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

Warnung

Das Ändern der Windows-Registrierung auf beliebige Weise, sei es im Registrierungs-Editor oder programmgesteuert, birgt immer ein gewisses Risiko. Eine falsche Änderung kann zu schwerwiegenden Problemen führen, wodurch das Betriebssystem unter Umständen neu installiert werden muss. Es wird empfohlen, die Registrierung eines Computers vor dem Ändern stets zu sichern.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mithilfe der StartupPaths-Eigenschaft der Pfadliste Start einen Pfad hinzufügen.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.