Imports System.IO

Public Class ProjectVisibilityConverter
   Implements IValueConverter

   Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
      'Dim Local_Project As New Project
      'Local_Project = DirectCast(value, Project)
      Dim sProjectName As String = CStr(value)
      Dim VisibilityDoorList As Visibility = Visibility.Visible
      If Not IsNothing(Map.refAssemblyManagerVM) AndAlso Map.refAssemblyManagerVM.VisibilityDoorList <> Visibility.Visible Then
         Return Visibility.Collapsed
      End If
      If Directory.Exists(sProjectName) Then
         VisibilityDoorList = Visibility.Visible
      Else
         VisibilityDoorList = Visibility.Collapsed
      End If
      Return VisibilityDoorList
   End Function

   Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
      Throw New NotImplementedException
   End Function

End Class