0/5 (7 avis)
Snippet vu 14 828 fois - Téléchargée 26 fois
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
Exemple :
Private Sub cmdListe_Click()
Call listFilesInitPath(dirToList)
Call listAllDir(dirToList)
End Sub
Merci pour toutes réponces fournies.
Je pense que cela vient d'un problème de droit sur des fichiers cachés ....
++
187
Merci !
PS : je noterai après avoir essayé ;-)
++
187
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.