LISTE DES FICHIERS D'UN RÉPERTOIRE AU FORMAT HTML

Const dirToList As String = "C:\Temp\"

Private Sub frmListFilesDirToHtml_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Hide()
        Call listFilesInitPath(dirToList)
        Call listAllDir(dirToList)
        Me.Close()
End Sub

'Liste des fichiers sous le rep racine
Private Sub listFilesInitPath(ByVal initPath As String)
        Dim initPathFiles As String
        Dim listStreamWriter As StreamWriter

        For Each initPathFiles In Directory.GetFiles(initPath, "*.*")
            'Ecriture du resultat dans le fichier "Liste.html"
            'Si ce fichier n'existe pas, il sera cree automatiquement
            listStreamWriter = File.AppendText(dirToList & "Liste des fichiers.html")

            'Ecriture chemin complet et nom fichier
            listStreamWriter.Write("<a href=" & "'file:" & initPathFiles & "'" & ">" & initPathFiles & "</a>" & "<br>")
            listStreamWriter.Flush()

            'Fermeture objet
            If Not listStreamWriter Is Nothing Then
                listStreamWriter.Close()
            End If
        Next
End Sub

'Liste des sous-rep & noms de fichiers sous le rep racine
Private Sub listAllDir(ByVal startDir As String)
        Dim dir As String
        Dim files As String
        Dim myStreamWriter As StreamWriter

        For Each dir In Directory.GetDirectories(startDir)
            For Each files In Directory.GetFiles(dir, "*.*")
	'Ecriture du resultat dans le fichier "Liste.html", à la suite (methode Append to text)
                myStreamWriter = File.AppendText(dirToList & "Liste des fichiers.html")

                'Ecriture chemin complet et nom fichier
                myStreamWriter.Write("<a href=" & "'file:" & files & "'" & ">" & files & "</a>" & "<br>")
                myStreamWriter.Flush()

                'Fermeture objet
                If Not myStreamWriter Is Nothing Then
                    myStreamWriter.Close()
                End If
            Next

            'Recherche sous-repertoires - Recursivite
            listAllDir(dir)
        Next
End Sub