0/5 (1 avis)
Snippet vu 21 808 fois - Téléchargée 28 fois
'# Liste dans un fichier texte l'ensemble des repertoires, sous repertoires '# et fichiers contenu dans un dossier. '# Fonction recursive Sub listingSousDossiersRecur(objListRep, cheminBranche) oFichierTXT.WriteLine("## Entrée dans le répertoire " & cheminBranche) '# Listing des fichiers Set pFichier = oFSO.GetFolder(cheminBranche) Set cFichiers = pFichier.Files For Each fichier in cFichiers oFichierTXT.WriteLine(cheminBranche & "\" & fichier.Name) Next '# Listing des sous-dossiers + appel recursif For Each oSousRep In objListRep Set objListSousRep = oSousRep.SubFolders Call listingSousDossiersRecur(objListSousRep, _ cheminBranche & "\" & oSousRep.Name) Next End Sub Set oFSO = CreateObject("Scripting.FileSystemObject") '# Pointeur sur le repertoire courant Set oRepCourant = oFSO.GetFolder(".") '# Creation du fichier texte Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFichierTXT = oFSO.CreateTextFile ("Listing_" & oRepCourant.Name & ".txt", _ True) '# Ecriture du repertoire courant dans le fichier oFichierTXT.WriteLine("RÉPERTOIRE SCRUTÉ : " & oRepCourant.Path) oFichierTXT.WriteLine("") '# Obtention d'une collection contenant l'ensemble des repertoire du dossier Set oSousRep = oRepCourant.SubFolders '# Appel d'une fonction recursive qui va lister l'ensemble des dossiers '# contenu dans chaque sous-dossier 'Call listingSousDossiersRecur(oSousRep, oRepCourant.Name) Call listingSousDossiersRecur(oSousRep, oRepCourant.Path)
1 sept. 2008 à 12:30
Je cherche une source pour lister le contenu d'un répertoire et sous-répertoire et cette source serait parfaite pour moi. Seulement... je ne connais pas le langage asp ni comment je peux l'intégrer dans une page html.
Pourquoi choisir du asp ? et bien parce que je veux exécuter ce script côté client, donc pas de php. Pas de java car .. et bien, je n'arrive pas non plus à utiliser les sources proposées sur ce site. (je suis une brêle)
Comment dois-je faire fonctionner ce code ? quels liens puis-je consulter pour info ?
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.