Designed by NoKi !
86 en ligne   Boutique | Sites | Bar | Forum | PhpBB | Actu | Glossaire | Codes | Tips | Liens | Livres | Lettre  


 Recherche

 NewsLetter





   

Affichage d'une structure de fichiers ...

sous forme d'arborescence. (ASP)





En complément à la lecture de fichiers et de dossiers contenu dans un dossier, voici une façon faire afficher une liste de dossiers et de fichiers sous forme d'arborescence à l'aide d'une fonction récursive.

Voici le code :


<% 
   Dim Root
   Const SpaceIndent = "&nbsp;&nbsp;&nbsp;&nbsp;"

   'A changer pour votre cas à vous
   Root = Server.MapPath("/")

   
   ' Fonction recursive pour l'affichage d'une arborescence
   Function DrawTree(sRoot, I) 
      Dim FSO, Folder, SubFolder, File 
      ' Instanciation
      Set FSO = Server.CreateObject("Scripting.FileSystemObject") 

      ' Instanciation
      set Folder = FSO.getFolder(sRoot) 

      ' Incrementation de l'arborescence - dossiers
      I = I + 1
      
      ' On n'affiche pas les _vti, _derived, _notes (dossiers réservés à IIS),
      ' mais on affiche tout les autres
      ' Trouver la position du dernier '\' et vérifier si le caractère suivant est un _
      If Mid(sRoot, (Len(sRoot) - Instr(StrReverse(sRoot), "\")+2),  1) <> "_" Then 
            
         ' Identatation
         PrintSpaces(I) 
         ' Afficher dossier
         Response.Write  Mid(sRoot, (Len(sRoot) - Instr(StrReverse(sRoot), "\")+2)) & " <br>" 
         
         ' Incrementation de l'arborescence - fichiers
         I = I + 1
         
         Set Folder = FSO.getFolder(sRoot) 
         ' Afficher tout les fichers contenu dans le répertoire courant
         For Each File in Folder.Files 
            ' Indentation à l'affichage
            PrintSpaces(I) 
            ' Affichage du fichier
            Response.Write File.Name & " <br>" 
         Next 
            
         ' Décrémentation de l'arborescence - fichiers
         I = I - 1 
            
      End If 
      
      ' Parcourir tout les sous-dossiers du dossier courant
      for each SubFolder in Folder.SubFolders 
         ' Verifier si le dernier caractère du chemin vers le dossier
         ' courant est un '\'
         If Right(sRoot,1) <> "\" Then 
         sRoot = sRoot & "\" 
         End If 
         
         ' Afficher le dossier courant dans l'arbre 
         Call DrawTree(sRoot & delem & SubFolder.Name, I) 
         
         
         ' Décrémentation de l'arborescence
         I = I - 1    
         ' Prochain 
      Next 
      
      'Destruction des instances
      Set Folder = Nothing 
      Set FSO = Nothing 
   End Function 

   'Fonction qui affiche l' indentation
   Function PrintSpaces(Number)
      Response.Write Number & " - "
      For I = 0 to Number 
          Response.Write SpaceIndent
      next 
   End Function 

   ' Appel de la fonction d'affichage de structure
   Call DrawTree(Root,-1) 
%>
 

alakazoo le 03/06/2003 (29 956 hits)
Didier Gratuit : Formez-vous sur Silverlight, .NET, OpenXML, ...
Ils l’ont fait avec SQL Server. Découvrez comment !
Concours de programmation Flash !
Au fil des news  
PowerShell - Ajouter une liste dans un site SharePoint
Annuaire d'entreprise en PHP - Très pratique pour ne plus rien perdre
Mon petit annuaire d'entreprise, je m'en sers tous les jours alors autant vous en faire profiter. ...
PHP-MySQL : Formulaire - pour le script 'Bon anniversaire' de DB77
Formulaire et script d'enregistrement pour le script « Bon anniversaire » de DB77 en PHP/MySQL ...
.NET - Introducing Microsoft Silverlight 2.0, 2nd Edition
PHP5 - Upload de fichiers - Classe PHP
PHP - PHP 5 /MYSQL® 5
PHP - Calcul de la surface d'un polygone
Comment supprimer des items d'une liste SharePoint - Supprimer les informations d'une liste SharePoint
SharePoint permet bien sur de stocker des données. Parfois, on peut vouloir effacer certaines de ...
Dreamweaver CS4 - Nouvelle version Béta
Voici la nouvelle mouture, annoncée en juin, juste 6 mois après la sortie de la version CS3. Je ...
PowerShell - Synchronisation répertoire par répertoire
PowerShell - Ajouter des items dans une liste SharePoint
Localisation des développements avec SharePoint - Rendre ses applications SharePoint internationales
Lorsque l'on développe des applications avec SharePoint, on se confronte très souvent à une ...
PowerShell - Supprimer tous les items d'une liste SharePoint
PowerShell - Vider la Corbeille SharePoint d'une collection
PowerShell - Modifier le Thème d'une collection SharePoint
PowerShell - Tester l'existance ou effacer une WebPart
PowerShell - Définir une valeur pour une propiété d'un SPWeb
PowerShell - Importer une liste SharePoint depuis un fichier
PowerShell - Exporter une liste SharePoint dans un fichier
PowerShell - Lister les propriétés d'un site SharePoint
Modification de l'adresse du Search Center - Définir la page de résultat d'une ferme MOSS
Lorsque l'on installe MOSS dans une ferme SharePoint et que l'on configure le moteur de recherche ...
PHP - Redimensionner Image + Picto après Upload - Galerie photos, revue de presse, ...
Upload de photo, redimensionnement, création de picto, enregistrement ...
ASP - Redimensionner Image + Picto après Upload - Galerie photos, revue de presse, ...
Upload de photo, redimensionnement, création de picto, enregistrement ... Utilisation ...
Exporter et Importer un site SharePoint - Comment déplacer un site SharePoint
Une question est très régulièrement posée à tout responsable de ferme SharePoint : Comment ...
Bon anniversaire - Comment le souhaiter à ses membres ?
Avoir un site, c'est bien. Avoir des inscrits, c'est mieux. Souhaiter leur anniversaire, c'est ...
Audio & Vidéo - Multimédia dans ses pages web
AUDIO/VIDEO : QuickTime, MediaPlayer, RealPlayer, FlashPlayer, ... : Du multimédia dans ses pages ...
Magazines - Le Hors-Série .Net de Programmez !
PHP - Administrer en ligne - Protection des pages
Protéger ses pages pour administrer son site en ligne en (relative) sécurité (PHP).
Communautés - Concours de programmation Flash !
[MAJ] Afficher ses images à la taille voulue - Utilisation du composant IMGSIZE
Ajout de la vérification de l'existence du fichier et d'un test d'erreur de retour du composant ...
Protéger ses Images - Propriété intellectuelle - Vie privée
Je me suis penché sur la question en tant qu'artiste moi-même, et concepteur de site web pour ...
Création de miniatures - Fonction php de création
Cette fonction sert à créer des miniatures.
ASP - Administrer en ligne - Protection des pages
Protéger ses pages pour administrer son site en ligne en (relative) sécurité (ASP).
JavaScript - Numéros de ligne à gauche d'un textarea
Protection - Sécurité - Mise au point - Précautions - Solutions
Même sans être paranoïaque, on a tous entendu parler de failles de sécurité, piratage informatique, ...
AspSmartUpload - Mode d'Emploi
Le composant ASPSmartUpload (gratuit) permet de gérer les téléchargements de FICHIERS ou de ...
JavaScript - Contrôler une date saisie dans un formulaire
HTML - Ajouter un fichier multimédia dans une page web
HTML - Musique de Fond sur son site
Afficher ses images à la taille voulue - Utilisation du composant IMGSIZE
Devant la diversité des formats d'image actuels, il est parfois nécessaire de connaître les ...
Tutorial : HTML | Scripting | ASP-PHP | ASP.net | SQL Server | XML
Sharepoint | XAML | Pocket | Dreamweaver | VML | Divers
  Scripts : Scripting | ASP-PHP | ASP.net | Divers
  Boutique | Annuaire | Bannières | Météo | Tribune | Partenariats
v3 © Didier 2003   
 

Corpo Sciences de Reims Partitions gratuites Carte, météo, annonces
 Codes Sources Wygwam ASP-magazine El Roubio The Inquirer FR DotNet Project MVP Groupes Utilisateurs Microsoft TechNet CodePPC