Not Working in Solidworks EPDM Vault

Working in normal windows folders

Imports Shell32

Imports SHDocVw

Imports System.IO

Public Class Form1

Private Function GetExplorerSelectedFiles() As String()

        Dim ExplorerFiles As New List(Of String)

        Dim exShell As New Shell

        For Each window As ShellBrowserWindow In DirectCast(exShell.Windows, IShellWindows)

            If TryCast(window.Document, IShellFolderViewDual) IsNot Nothing Then

                    For Each fi As FolderItem In DirectCast(window.Document, IShellFolderViewDual).SelectedItems

                        ExplorerFiles.Add(fi.Name)

                    Next

                ElseIf TryCast(window.Document, ShellFolderView) IsNot Nothing Then

                    For Each fi As FolderItem In DirectCast(window.Document, ShellFolderView).SelectedItems

                        ExplorerFiles.Add(fi.Name)

                    Next

                End If

            Next

        Return ExplorerFiles.ToArray

    End Function

Private Sub btntest_Click(sender As Object, e As EventArgs) Handles btntest.Click

        Dim files = GetExplorerSelectedFiles()

        Dim file As String = String.Join(".", files)

        Label1.Text = file

End Sub

End Class