Fonctions ASP pour parcourir les répertoires et les fichiers dans les répertoires - je n'en ai trouvé aucun sur Internet, je les ai donc corrigées à l'aide d'Emeditor <%@ Language=vbscript %>
<%
'Fonction pour parcourir les répertoires et les fichiers sous les répertoires
%>
<%
FonctionBianli(chemin)
Définir Fso=server.createobject(scripting.filesystemobject)
En cas d'erreur, reprendre ensuite
Définir Objfolder=fso.getfolder(chemin)
Définir Objsubfolders=objfolder.subfolders
Pour chaque sous-dossier Obj dans les sous-dossiers Obj
Nowpath=chemin + / + Objsubfolder.name
Response.write Nowpath
Définir Objfiles=objsubfolder.files
Pour chaque fichier Obj dans Objfiles
Réponse.écrire <br>---
Response.write Objfile.name
Suivant
Réponse.écrire <p>
Bianli(nowpath)'récursif
Suivant
Définir Objfolder = rien
Définir Objsubfolders = rien
Définir Fso=rien
Fonction de fin
%>
<%
Bianli(D:) 'Traverser le disque d:
%>