Ich hätt es so in der Art gelöst...
VB.NET-Quellcode
- Imports System.IO
- Public Class FileSystemInfoExt
- Public Property BasicInfo As FileSystemInfo
- Public Property CustomInfo As String
- Public Property InfoType As Type
- Public Property FullName As String
- Public ReadOnly Property CombinedInfo As String
- Get
- Return Me.BasicInfo.Name & " >> " & Me.CustomInfo
- End Get
- End Property
- Public Sub New(ByVal info As FileSystemInfo, ByVal customInfo As String)
- Me.BasicInfo = info
- Me.CustomInfo = customInfo
- Me.InfoType = info.GetType()
- Me.FullName = info.FullName
- End Sub
- End Class
Die Unendlichkeit ist weit. Vor allem gegen Ende.
Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken.
Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken.