Script, Dossier + Sous Dossier + "publication" page HTML

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Script, Dossier + Sous Dossier + "publication" page HTML

Alexis_28

Bonjours,
Dans ce joli petit script il me selectionne tous les sous dossier alors que je souhaiterais m'arreter à 2 si vous avez une idée pour m'aider !!

Code :

Dim ShellO: Set ShellO = CreateObject("WScript.Shell" )
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject" )
Dim SListe: Dim Schemin
'Dossier à traiter
Schemin = "C:\" 'Dossier à modifier
'Dossier Bureau de windows + "\"
SListe = ShellO.SpecialFolders("Desktop" )
If Right(SListe, 1) <> "\" Then SListe = SListe & "\"
'Ouverture du fichier contenant l'arborescence du répertoire à traiter vers le Bureau
Dim Fichier: Set Fichier = FSO.CreateTextFile(SListe & "Liste.html", 1, True)
strHTML=strHTML &"<center><h2><B><font color=red>Liste des Dossiers et Sous-Dossiers dans C:\ </font></B></h2></center>" & _
"<table border='3' cellpadding='10' style='border-collapse: collapse; font size:11pt' bordercolor='#CCCCCC' width='100%' id='Table1'>" & _
"<tr><td><strong>Chemin des Dossiers :</strong></td></tr>"
'Fichier.WriteLine (Schemin & "<br>" )
Fichier.WriteLine strHTML 'Ecrire la structure du Tableau en HTML
ListerDossier Schemin, Fichier 'Remplissage dynamique des données dans le Tableau
Fichier.WriteLine "</table>" 'ici on ferme notre tableau par la balise </table>
'Fermeture du fichier contenant l'arborescence du répertoire à traiter
Fichier.Close
Function ListerDossier(Schemin, Fichier) 'Lister l'arborescence du dossier
On Error Resume Next
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject" )
Dim ObjRep: Set ObjRep = FSO.GetFolder(Schemin) 'dossier
Dim ObjSubRep: Set ObjSubRep = ObjRep.SubFolders 'sous-dossiers
Dim ObjSubRepItem
For Each ObjSubRepItem In ObjSubRep 'Traiter chaque sous-dossiers
Fichier.WriteLine ("<tr><td><a href='" & ObjSubRepItem.Path & "'>" & ObjSubRepItem.Path & "</a></td></tr>" ) 'Ecrire le path dans les lignes du Tableau en HTML
ListerDossier ObjSubRepItem.Path, Fichier 'traiter les sous-dossiers
Fichier.WriteLine ObjSubFileItem.Path 'Ecrire le path dans la liste
Next
End Function

MERCI A VOUS

Message cité 1 fois

Publicité

kiki29

Salut,c'est du VBA Excel mais facilement adaptable voir sur http://boisgontierjacques.free.fr/ [...] rtoire.htm

sinon j'ai posté un VBA Excel sur http://cjoint.com/?3Espcim1hJG

Message édité par kiki29 le 18-05-2011 à 15:02:49

Alexis_28

Merci de ta participation mais je suis etudiant & trés débutant dans ce language xD

je comprend pas les manips

tarteflambee

Alexis_28 a écrit :

Bonjours,
Dans ce joli petit script il me selectionne tous les sous dossier alors que je souhaiterais m'arreter à 2 si vous avez une idée pour m'aider !!

Code :

Dim ShellO: Set ShellO = CreateObject("WScript.Shell" )
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject" )
Dim SListe: Dim Schemin
Dim level As Integer
level = 0
'Dossier à traiter
Schemin = "C:\" 'Dossier à modifier
'Dossier Bureau de windows + "\"
SListe = ShellO.SpecialFolders("Desktop" )
If Right(SListe, 1) <> "\" Then SListe = SListe & "\"
'Ouverture du fichier contenant l'arborescence du répertoire à traiter vers le Bureau
Dim Fichier: Set Fichier = FSO.CreateTextFile(SListe & "Liste.html", 1, True)
strHTML=strHTML &"<center><h2><B><font color=red>Liste des Dossiers et Sous-Dossiers dans C:\ </font></B></h2></center>" & _
"<table border='3' cellpadding='10' style='border-collapse: collapse; font size:11pt' bordercolor='#CCCCCC' width='100%' id='Table1'>" & _
"<tr><td><strong>Chemin des Dossiers :</strong></td></tr>"
'Fichier.WriteLine (Schemin & "<br>" )
Fichier.WriteLine strHTML 'Ecrire la structure du Tableau en HTML
ListerDossier Schemin, Fichier, level 'Remplissage dynamique des données dans le Tableau
Fichier.WriteLine "</table>" 'ici on ferme notre tableau par la balise </table>
'Fermeture du fichier contenant l'arborescence du répertoire à traiter
Fichier.Close
Function ListerDossier(Schemin, Fichier, ByVal level As Integer) 'Lister l'arborescence du dossier
On Error Resume Next
level = level + 1
If level > 2 Then
Exit Function
End If
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject" )
Dim ObjRep: Set ObjRep = FSO.GetFolder(Schemin) 'dossier
Dim ObjSubRep: Set ObjSubRep = ObjRep.SubFolders 'sous-dossiers
Dim ObjSubRepItem
For Each ObjSubRepItem In ObjSubRep 'Traiter chaque sous-dossiers
Fichier.WriteLine ("<tr><td><a href='" & ObjSubRepItem.Path & "'>" & ObjSubRepItem.Path & "</a></td></tr>" ) 'Ecrire le path dans les lignes du Tableau en HTML
ListerDossier ObjSubRepItem.Path, Fichier 'traiter les sous-dossiers
ListerDossier ObjSubRepItem.Path, Fichier, level 'traiter les sous-dossiers
Fichier.WriteLine ObjSubFileItem.Path 'Ecrire le path dans la liste
Next
End Function

MERCI A VOUS

Bonjour, si j'ai bien compris tu veux t'arrêter à un niveau 2 dans les sous-dossier.
En rouge tu as un appel de la fonction ListerDossier par elle-même (récursivité).
Si tu veux t'arrêter au niveau 2 il faut ajouter une sortie dans cette fonction quand elle atteint le niveau 2. Voir ajout en bleu.
Et en vert le nom du dossier est en fixe dans le code html alors que ton dossier est en dynamique...

Message édité par tarteflambee le 19-05-2011 à 21:42:24

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Script, Dossier + Sous Dossier + "publication" page HTML

Sujets relatifs
Afficher du HTML dans une JFrame	script AS3 pour remplacer l'anime jouée par une image dans une DIV
protection par popup accès index.html	scroll minimum dans un page avec des element en overflow
Supprimer un dossier dans une archive Java avec un.bat	petite question html de rien du tout :)
Intégration balise php dans script jquery	Validation formulaire d'upload de fichier sans changer de page
[HTML/CSS] épaisseur d'un titre	Problème sur page d'identification complexe sans bdd
Plus de sujets relatifs à : Script, Dossier + Sous Dossier + "publication" page HTML

Page générée en 0.058 secondes