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)
      Return If(Directory.Exists(sProjectName), Visibility.Visible, Visibility.Collapsed)
   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