pb récuperation de fichiers dans l'ordre alphabétique ?

Question

Bonjour, 

je scan plusieurs r&#233;pertoires et sous repertoires pour r&#233;cuperer tous les fichiers
je r&#233;cuperer cette liste dans un fichier text

le probleme c'est que la liste n'est pas dans l'ordre alphab&#233;tique, elle est dans le d&#233;sordre le plus complet
il y a t il un moyen de conserver l'ordre initial ?
voici mon code

With Application.FileSearch
        
            'search de tous les cpp d'un framework
            .NewSearch
            .LookIn = SearchPath
            .SearchSubFolders = True
            .Filename = "*.cpp"
            .MatchTextExactly = True
            .FileType = msoFileTypeAllFiles
            If .Execute > 0 Then
                For I = 1 To .FoundFiles.Count
                        outfile.writeline (.FoundFiles(I))
                Next I
            End If
    
        End With

amicalement

Ludovic

cs_pcvesoul · Answer

Tu charges tout dans un tableau, tu tries ton tableau et tu enregistres.

cs_ludo92 · Answer

chouette encore des tableaux
c'est d&#233;j&#224; la 2&#232;me fois que je passe par des tableaux pour gerer un probleme du a la mauvaise gestion des fichiers sur VBA

merci
Ludovic

Pb récuperation de fichiers dans l'ordre alphabétique ?

2 réponses

Discussions similaires