Dim objPropertyValue As Object = Nothing
        Dim strReturnValue As String = Nothing
        Dim objType As Type = New CFileInfo().GetType()
 
        '******************************************   Loop all items in this
        '******************************************   CFileInfo-Object
        For Each pi As Reflection.PropertyInfo In objType.GetProperties( _
          Reflection.BindingFlags.Instance Or Reflection.BindingFlags.Public)
 
                     '******************************************   Get Value
                With pi
                    If .GetIndexParameters().Length = 0 Then
                        objPropertyValue = .GetValue(obj, Nothing)
                        If objPropertyValue Is Nothing Then
                            strReturnValue = ""
                        Else
                            strReturnValue = objPropertyValue.ToString
                        End If
                    Else
                        strReturnValue = "ARRAY"
                    End If
                End With
 
       Next