Public Class TestKlasse
   Private pPath As String
 
   Public Sub New(ByVal filepath As String)
      pPath = filepath
   End Sub
 
   Public ReadOnly Property FullName() As String
      Get
         Return pPath
      End Get
   End Property
 
   Public ReadOnly Property Name() As String
      Get
         Return IO.Path.GetFileName(pPath)
      End Get
   End Property
End Class

   Public Property FullName() As String
      Get
         Return pPath
      End Get
      Set(ByVal value As String)
         If Not IO.File.Exists(value) Then
            Throw New IO.FileNotFoundException
         End If
 
         pPath = value
      End Set
   End Property