Bonjour,
Je cherche à parcourir des fichiers dans une arbo de repertoire.
Je parcours donc facilement tous mes repertoires à l'aide d'une boucle.
Dans cette boucle j'appel un fonction qui devra faire un traitement dans les fichiers notament recuperer que des fichiers jpg.
Le probleme se situe au moment ou pour tester je cherche à afficher le contenu de chaque repertoire.
En effet il ne m'ffiche le contenu que d'un repertoire, notament l'avant dernier.
voici le code ds 2 petites fonctions :
Code :
- '****************************************************
- '*Fonction permettant le parcour du sous repertoire *
- '* *
- '****************************************************
- sub Rechrep()
- dim WayFolder
- WayFolder=server.MapPath("GammeSuzuki" )
- 'Objet systeme de Fichier
- set obj_FileSysteme=server.CreateObject("Scripting.FileSystemObject" )
- 'Objet repertoire
- set obj_Folder=obj_FileSysteme.GetFolder(WayFolder)
- 'Parcour de l'objet obj_Folder
- For each Folder in obj_Folder.subFolders
- Response.Write(Folder.Name&"<br>" )
- TrieRep(Folder)
- Next
- end sub
- '***********************************************************
- '*Fonction de trier les repertoires excluant les defil_img *
- '* *
- '***********************************************************
- function TrieRep(obj_Folder)
- for each File in obj_Folder.Files
- 'Traitement des Files
- Response.Write(File&"<br>" )
- next
- end function
|
