open directory

[techker]

hey guys im trying to open a directory to list the images in it ..i have this up to know

Dim strFileSize As String = ""
        Dim di As New IO.DirectoryInfo("C:\Users\TECHKER\Pictures")
        Dim aryFi As IO.FileInfo() = di.GetFiles("*.*")
        Dim fi As IO.FileInfo

        For Each fi In aryFi
            If fi.Extension = ".jpg" Or fi.Extension = ".gif" Or fi.Extension = ".bmp" Then ''etc etc etc
                strFileSize = (Math.Round(fi.Length / 1024)).ToString()
                Console.WriteLine("File Name: {0}", fi.Name)
                Console.WriteLine("File Full Name: {0}", fi.FullName)
                Console.WriteLine("File Size (KB): {0}", strFileSize)
                Console.WriteLine("File Extension: {0}", fi.Extension)
                Console.WriteLine("Last Accessed: {0}", fi.LastAccessTime)
                Console.WriteLine("Read Only: {0}", (IO.FileAttributes.ReadOnly = True).ToString)
            End If
        Next