Public Class clsLtv
   Inherits ListViewItem
 
   Public Enum DataType
      Folder
      File
   End Enum
 
   Private e_Typ As DataType
   Private m_FullPath As String
   Private m_Date As String
   Private m_Filetyp As String
   Private m_Extension As String
   Private m_Name As String
 
Public Sub New(ByVal F As FileInfo)
      e_Typ = DataType.File
      m_FullPath = F.FullName
      m_Name = F.Name
      m_SizeasLong = F.Length
      m_Date = F.LastWriteTime.ToShortDateString + " - " + _
        F.LastWriteTime.ToLongTimeString
      m_Extension = F.Extension
      m_Filetyp = ReadTypFromRegistry(F.Extension)
   End Sub
 
   Public Sub New(ByVal D As DirectoryInfo)
      e_Typ = DataType.Folder
      m_FullPath = D.FullName
      m_Name = D.Name
           m_Date = D.LastWriteTime.ToShortDateString + " - " + _
             D.LastWriteTime.ToLongTimeString
      m_Extension = "-"
      m_Filetyp = "Ordner"
   End Sub
 
  Public ReadOnly Property FileOrFolder() As DataType
  ....
 
Public Property Extension() As String
...
 
Public Property FullPath() As String
...
 
usw.
 
End Class

      'Existiert bereits ein Icon in der Imagelist?
      Dim picindex As Int32
      dim img a new ImageList
 
''---> F fungiert  hier als Beispiel als ein FileInfoObject
 
      '---> Datei hat keine Extension!
      If F.Extension.ToUpper = "" Then
         If img.Images.ContainsKey("-") = False Then
            img.Images.Add("-", Drawing.Icon.ExtractAssociatedIcon(F.FullPath))
         Else
            picindex = img.Images.IndexOfKey(L.Extension.ToUpper)
         End If
 
         '   '---> Datei hat eine Extension!
      ElseIf F.Extension.ToUpper <> "" Then
         If img.Images.ContainsKey(F.Extension.ToUpper) = False Then
            img.Images.Add(F.Extension.ToUpper, _
              Drawing.Icon.ExtractAssociatedIcon(L.FullPath))
            picindex = img.Images.IndexOfKey(F.Extension.ToUpper)
         Else
            picindex = img.Images.IndexOfKey(F.Extension.ToUpper)
         End If
      End If
 
 
      'Imageindex
      Return picindex

Visual Basic Express 2010, C# Express 2010
Intel? i7 Core 920@2.63 Ghz, 6 GByte DDR3, 1024 MB ATI? Radeon? 5870, Windows 7 Prof. 64 Bit
Gibson SG 61' Reissue ; Ibanez Prestige RG 2550 E, Marshall Valvestate VS100 + Modell Vs412 (4 x 12''), Cubase Studio