Listbox sorting numerically

you could try something like this. (it's not brilliant code (redim) but it works and should give you a general idea)

dim str() as string
dim int() as integer
dim x as integer = 0
Dim en As IEnumerator = OD1.FileNames.GetEnumerator
While en.MoveNext
  redim str(str.getupperbound(0) + 1)
  redim int(int.getupperbound(0) + 1)
  str(x) =  dir(en.current))
  int(x) = Val(str(x).Substring(str(x).IndexOf("yy-") + 3, str(x).IndexOf(".") - (str(x).IndexOf("yy-") + 3)))
  x += 1
End While

str.Sort(int, str)

For Each g As String In str
     ListBox1.Items.Add(g)
Next

Object reference not set to an instance of an object.  Occured on the first ReDim statemt.  str=nothing

oeps, sorry

dim str(0) as string
dim int(0) as integer

Hi, I'm sorry to waist your time, but I got the answer from another post.  ICompare!!

Dim ar As New ArrayList(OD1.FileNames)
        ar.Sort(New MySorter)
        ListBox1.Items.AddRange(ar.ToArray())



    Private Class MySorter
        Implements IComparer


        Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
            Dim s1 As String = x
            Dim s2 As String = y
            Try
                Dim i1 As Integer = s1.IndexOf("."c)
                Dim j1 As Integer = s1.LastIndexOf("-"c, i1)
                Dim n1 As Integer = Integer.Parse(s1.Substring(j1 + 1, i1 - j1 - 1))

                Dim i2 As Integer = s2.IndexOf("."c)
                Dim j2 As Integer = s2.LastIndexOf("-"c, i2)
                Dim n2 As Integer = Integer.Parse(s2.Substring(j2 + 1, i2 - j2 - 1))

                Return n1 - n2
            Catch ex As Exception
                Return String.Compare(s1, s2, True)
            End Try
        End Function
    End Class

No problem, go to community service and get your points refunded