' Nodes zum TreeView
  Public Sub FillTreeNode(ByVal DrvNode As TreeNode)
 
        Try
 
            Dim DI As New DirectoryInfo(DrvNode.FullPath)
            Dim DirInfos() As DirectoryInfo = DI.GetDirectories
            ' Sortierung aufrufen
            Array.Sort(DirInfos, New DirNameComparer)
       ...
  End Sub
 
' Sortierung
Public Class DirNameComparer
    Implements IComparer(Of DirectoryInfo)
 
    Public Function Compare(ByVal x As DirectoryInfo, ByVal y As DirectoryInfo) _
      As Integer Implements IComparer(Of DirectoryInfo).Compare
 
        Dim xval As Integer
        Dim xPos As Integer
        Dim xNumber As String
        Dim yval As Integer
        Dim yPos As Integer
        Dim yNumber As String
        Dim Z As Integer
        Dim CI As CompareInfo = CompareInfo.GetCompareInfo("de-DE")
 
        ' Zahlen aus den zu vergleichenden Strings auslesen:
        ' Erster String: Position der ersten Ziffer feststellen
        Dim xPos As Integer = _
        x.Name.IndexOfAny(New Char() {"0"c, "1"c, "2"c, "3"c, "4"c, "5"c, "6"c, _
        "7"c, "8"c, "9"c})
        ' Zweiter String: Position der ersten Ziffer feststellen
        Dim yPos As Integer = _
        y.Name.IndexOfAny(New Char() {"0"c, "1"c, "2"c, "3"c, "4"c, "5"c, "6"c, _
        "7"c, "8"c, "9"c})
 
        ' Ziffern müssen an derselben Position innnerhalb der zu vergleichenden 
        ' Strings stehen
        If xPos > -1 AndAlso yPos > -1 AndAlso xPos = yPos Then
 
            ' Die zu vergleichenden Strings müssen bis zu den isolierten 
            ' Ziffern gleich sein; ('Hardrock' soll nicht mit 'Hartrock' 
            ' verglichen werden)
            If x.Name.StartsWith(y.Name.Substring(0, yPos)) Then
 
                ' Zahlen können 1-, 2- usw.-stellig sein: Stellenanzahl 
                ' feststellen
                ' Im erster String
                For Z = xPos To x.Name.Length - 1
                    If Not IsNumeric(x.Name.Substring(Z, 1)) Then Exit For
                Next
                ' Zahl aus erstem String isolieren (Z - xPos = Stellenanzahl)
                xNumber = x.Name.Substring(xPos1, Z - xPos)
 
                ' Und im zweiten String
                For Z = yPos To y.Name.Length - 1
                    If Not IsNumeric(y.Name.Substring(Z, 1)) Then Exit For
                Next
                yNumber = y.Name.Substring(yPos1, Z - yPos)
 
                ' Isolierte Zahlen mit TryParse als Integerwerte vergleichen
                If Integer.TryParse(xNumber, xval) AndAlso Integer.TryParse( _
                  yNumber, yval) Then
                    Return xval.CompareTo(yval)
                End If
            Else
                ' Strings bis zu den isolierten Ziffern unterschiedlich - 
                ' Stringvergleich durchführen
                Return CI.Compare(x.Name, y.Name)
            End If
        Else
            ' Ziffern an unterschiedlichen Positionen oder keine Zahlen in den 
            ' zu vergleichenden Strings oder einer mit Zahl, einer ohne - 
            ' Stringvergleich durchführen (verhindert, dass Céline Dion (wg. 
            ' des Akkuts) an das Ende aller Verzeichnisse, die mit C beginnen, 
            ' rutscht)
            Return CI.Compare(x.Name, y.Name)
        End If
 
    End Function