' construct a new array of dirlistingstrings 
    Public Sub New(ByVal dir As String)
        MyBase.New()
        fillarr(dir)
    End Sub
 
 
    Protected Sub fillarr(ByVal directory As String)
        this_dir = directory
        Dim dirs() As IO.DirectoryInfo = New IO.DirectoryInfo( _
          directory).GetDirectories
        Dim files() As IO.FileInfo = New IO.DirectoryInfo(directory).GetFiles
        Dim file As IO.FileInfo
        Dim dir As IO.DirectoryInfo
        Dim str As String
        For Each dir In dirs
            If dir.Attributes = IO.FileAttributes.ReadOnly + _
              IO.FileAttributes.Directory Then
                str = "dr--r--r--"
            ElseIf dir.Attributes = IO.FileAttributes.Hidden + _
              IO.FileAttributes.Directory Then
                str = "d-w--w--w-"
            ElseIf dir.Attributes = IO.FileAttributes.Hidden + _
              IO.FileAttributes.System + IO.FileAttributes.Directory Then
                str = "d---------"
            Else
                str = "drw-rw-rw-"
            End If
            str = str & "   1 user     group           0 "
            str = str & dateparser(, dir) & " "
            str = str & dir.Name
            MyBase.Add(str)
        Next
        For Each file In files
            If file.Attributes = 39 Then
                str = "----------"
            ElseIf (file.Attributes And IO.FileAttributes.System) = _
              IO.FileAttributes.System Then
                str = "----------"
            ElseIf (file.Attributes And IO.FileAttributes.ReadOnly) = _
              IO.FileAttributes.ReadOnly Then
                str = "-r--r--r--"
            Else
                str = "-rw-rw-rw-"
            End If
            str = str & "   1 user     group"
            If file.Length.ToString.Length < 10 Then
                str = str & "     " & file.Length.ToString & " "
            Else
                str = str & " " & file.Length.ToString & " "
            End If
            str = str & dateparser(file, ) & " "
            str = str & file.Name
            MyBase.Add(str)
        Next
    End Sub
 
    Private Function dateparser(Optional ByVal file As IO.FileInfo = Nothing, _
      Optional ByVal dir As IO.DirectoryInfo = Nothing) As String
        Dim str As String
        Dim obj_date As DateTime
        If Not Nothing Is file Then
            obj_date = file.LastWriteTime
        End If
        If Not Nothing Is dir Then
            obj_date = dir.LastWriteTime()
        End If
        If obj_date.Month = 1 Then
            str = "Jan"
        ElseIf obj_date.Month = 2 Then
            str = "FEB"
        ElseIf obj_date.Month = 3 Then
            str = "Mar"
        ElseIf obj_date.Month = 4 Then
            str = "Apr"
        ElseIf obj_date.Month = 5 Then
            str = "May"
        ElseIf obj_date.Month = 6 Then
            str = "Jun"
        ElseIf obj_date.Month = 7 Then
            str = "Jul"
        ElseIf obj_date.Month = 8 Then
            str = "Aug"
        ElseIf obj_date.Month = 9 Then
            str = "Sep"
        ElseIf obj_date.Month = 10 Then
            str = "Oct"
        ElseIf obj_date.Month = 11 Then
            str = "Nov"
        ElseIf obj_date.Month = 12 Then
            str = "Dec"
        End If
        str = str & " " & obj_date.Day
        If obj_date.Year = DateTime.Now.Year = False Then
            str = str & "  " & obj_date.Year
        Else
            If obj_date.Hour < 10 Then
                str = str & " 0" & obj_date.Hour & ":"
            Else
                str = str & " " & obj_date.Hour & ":"
            End If
            If obj_date.Minute < 10 Then
                str = str & "0" & obj_date.Minute
            Else
                str = str & obj_date.Minute
            End If
        End If
        Return str
    End Function
 
    Dim this_dir As String
 
    Friend ReadOnly Property path() As String
        Get
            Return this_dir
        End Get
    End Property