Tri des chemins de chaîne dans VB.NET

Question

Je voudrais trier une liste de chaînes représentant des chemins. Le résultat du tri aura un ordre hiérarchique. Ce que je veux dire est: pour chaque chemin de répertoire, je veux lister tous les fichiers dans ce chemin (alphabétiquement ou pas n'importe) dans la première fois. Ensuite, chaque chemin de sous-répertoire sera répertorié. Pour chaque sous-répertoire, je veux tous les fichiers ... et ainsi de suite.

Voici un exemple:

(Avant)

emule/changelog.txt 
emule/config/ 
emule/config/adresses.dat 
emule/config/nodes.dat 
emule/config/webservices.dat 
emule/eMule.tmpl 
emule/eMule_Chicane.tmpl 
emule/license.txt 
emule/license-GER.txt 
emule/readme.txt 
emule/Skin/ 
emule/Skin/Daan-V2-8.eMuleSkin.ini 
emule/Skin/DaanV2-8/ 
emule/Skin/DaanV2-8/back.ICO 
emule/Skin/DaanV2-8/WebServer.ico 
emule/Template.eMuleSkin.ini 
emule/webserver/ 
emule/webserver/add_server.gif 
emule/webserver/arrow_down.gif 
emule/webserver/arrow_right.gif 
emule/webserver/yellow.gif 
emule/emule.exe 

(Après)

emule/changelog.txt 
emule/emule.exe 
emule/eMule.tmpl 
emule/eMule_Chicane.tmpl 
emule/license.txt 
emule/license-GER.txt 
emule/readme.txt 
emule/Template.eMuleSkin.ini 
emule/config/ 
emule/config/adresses.dat 
emule/config/nodes.dat 
emule/config/webservices.dat 
emule/Skin/ 
emule/Skin/Daan-V2-8.eMuleSkin.ini 
emule/Skin/DaanV2-8/ 
emule/Skin/DaanV2-8/back.ICO 
emule/Skin/DaanV2-8/WebServer.ico 
emule/webserver/ 
emule/webserver/add_server.gif 
emule/webserver/arrow_down.gif 
emule/webserver/arrow_right.gif 
emule/webserver/yellow.gif 

J'ai essayé plusieurs solutions comme Array.Sort() avec une fonction personnalisée IComparable.

Avez-vous une idée? Merci beaucoup.

EDIT: voici ma méthode IComparable

zipEntries.Sort(AddressOf compareZipEntryFilenames) 

Private Function compareZipEntryFilenames(ByVal x As Object, ByVal y As Object) As Integer 
     Dim one As String = CType(x, ZipEntry).FileName 
     Dim two As String = CType(y, ZipEntry).FileName 

     If Path.GetDirectoryName(one) = Path.GetDirectoryName(two) Then 
      Return String.Compare(one, two) 
     Else 
      Select Regex.Matches(one, "/").Count.CompareTo(Regex.Matches(two, "/").Count) 
       Case -1 'one has less/than two; so one then two 
        Return -1 
       Case 1 'one has more/than two; so two then one 
        Return 1 
       Case Else ' = 0, same number of /; so alphabetical sorting 
        Return String.Compare(one, two) 
      End Select 
     End If 
    End Function 

Answer 1

se révèle être aussi simple que:

Private Function compareZipEntryFilenames(ByVal x As ZipEntry, ByVal y As ZipEntry) As Integer 

    Dim res As Integer = String.Compare(Path.GetDirectoryName(x.FileName), Path.GetDirectoryName(y.FileName)) 

    If res = 0 Then 
     Return String.Compare(x.FileName, y.FileName) 
    Else 
     Return res 
    End If 

End Function 

Answer 2

Insérez le bas dans la classe où le genre se produit, puis utilisez zipEntries.Sort(new PathComparer)

private class PathComparer 
     implements IComparer 

    Public Function compareZipEntryFilenames(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare 
     Dim one As String = CType(x, ZipEntry).FileName 
     Dim two As String = CType(y, ZipEntry).FileName 

     If Path.GetDirectoryName(one) = Path.GetDirectoryName(two) Then 
      Return String.Compare(one, two) 
     Else 
      Select Regex.Matches(one, "/").Count.CompareTo(Regex.Matches(two, "/").Count) 
       Case -1 'one has less/than two; so one then two 
        Return -1 
       Case 1 'one has more/than two; so two then one 
        Return 1 
       Case Else ' = 0, same number of /; so alphabetical sorting 
        Return String.Compare(one, two) 
      End Select 
     End If 
     End Function  
    end class