# Set and Get Paths of Interface Files Example (VB.NET)

This example shows how to set and get the paths of interface files.

    '--------------------------------------------------------------
    ' Preconditions:
    ' 1. Create a VB.NET Windows console project.
    ' 2. Copy and paste this example into the VB.NET IDE.
    ' 3. Add a reference to:
    '    install_dir\APISDK\tlb\DraftSight.Interop.dsAutomation.dll.
    ' 4. Add a reference to System.Windows.Forms.
    ' 5. Start DraftSight.
    ' 6. Press F5.
    '
    ' Postconditions:
    ' 1. Connects to DraftSight.
    ' 2. Sets different alias, custom icon, customization, and
    '    menu file paths.
    ' 3. Gets different alias, custom icon, customization, and
    '    menu file paths. Click OK to click each message box.
    '
    ' NOTE: To verify, you can also click Tools > Options >
    ' File Locations and expand Interface. Then expand and
    ' examine Alias File Location, Custom Icon Location,
    ' Customization File, and Menu Files.
    '--------------------------------------------------------------
    Imports System
    Imports DraftSight.Interop.dsAutomation
    Imports System.Runtime.InteropServices
    Imports System.Windows.Forms

    Module Module1

        Sub Main()

            Dim dsApp As DraftSight.Interop.dsAutomation.Application

            'Connect to DraftSight application
            dsApp = GetObject(, "DraftSight.Application")

            If dsApp Is Nothing Then
                Return
            End If

            'Abort any command currently running in DraftSight
            'to avoid nested commands
            dsApp.AbortRunningCommand()

            Dim dsInterfaceFiles As InterfaceFiles = dsApp.GetInterfaceFiles()
            If dsInterfaceFiles Is Nothing Then
                MessageBox.Show("There are no valid interface files.")
                Return
            End If

            'Set and get different file paths
            dsInterfaceFiles.AliasFilePath = "C:\Program Files\Dassault Systemes\DraftSight\Default Files\Alias"

            dsInterfaceFiles.CustomIconPath = ""

            dsInterfaceFiles.CustomizationFilePath = ""

            dsInterfaceFiles.MenuFilesPath = "C:\Program Files\Dassault Systemes\DraftSight\Default Files\StartupMenu\english"

            MessageBox.Show("Alias file path: " + dsInterfaceFiles.AliasFilePath)
            MessageBox.Show("Custom icon path: " + dsInterfaceFiles.CustomIconPath)
            MessageBox.Show("Customization file path: " + dsInterfaceFiles.CustomizationFilePath)
            MessageBox.Show("Menu files path: " + dsInterfaceFiles.MenuFilesPath)

        End Sub
    End Module