Explorateur de dossiers

[mattyeux]

Bonjour,

Je suis en train de faire un petit gestionnaire de fichier ...
Je suis débutant en asp et je ne maitrise donc pas le langage.

Voici mon probleme:
Mon script se nomme visibilite.asp
J'affiche tous les fichiers et dossier d'un répertoire de départ: ce répertoire de départ est "./data"
pour cela je fais :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
<% 	Set FSO = _
   	Server.CreateObject("Scripting.FileSystemObject")  
  	 	dir = Server.MapPath("data/")
   	set foldPt = FSO.GetFolder(dir)
   	set fic = foldPt.Files
   	set subfold = foldPt.SubFolders
             'affichage des dossier
             for each d in subfold 
                  d.name
             next
             'affichage des fichiers
             for each f in fic
	     f.name		
             next

J'aimerai ensuite pouvoir descendre dans les sous dossiers afin d'y voir ses propres fichiers et dossiers.

Mais la je rencontre un probleme .... :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
<% 	Set FSO = _
   	Server.CreateObject("Scripting.FileSystemObject")    	 		if not isnull(Request.QueryString("folder")) or Request.QueryString("folder")<>"" then  
		directory = "data/" & Request.QueryString("folder")
   		dir = Server.MapPath(Server.HTMLEncode(directory))
  	else
   	 	dir = Server.MapPath("data/")
	end if
   	set foldPt = FSO.GetFolder(dir)
   	set fic = foldPt.Files
   	set subfold = foldPt.SubFolders
             'affichage des dossier
             for each d in subfold %>
                  <a href="visibilite.asp?folder=<%"data/"&d.name%>"><%=d.name%></a>
             <% next
             'affichage des fichiers
             for each f in fic
	     f.name		
             next

Donc en gros la, je vois bien les dossiers au premier niveau. C'est à dire que je vois les fichiers et dossiers qui dont dans "data/Dossier/"
Mais j'arrive pas à voir les fichiers et dossiers qui sont au second niveau cad : "data/Dossier/Dossier2" car mon script va chercher le Dossier2 à l'url "data/Dossier2 " a cause de
<a href="visibilite.asp?folder=<%"data/"&d.name%>"><%=d.name%></a>

J'ai essayer de faire pas mal de truc mais je ne trouve pas de technique pour me dépétrer de ca ...

Pouvez vous m'aider ?

PS: je sais pas si j'ai bien expliquer le problème donc n'hésitez pas a me demander des éclaircissement si besoin est..

Merci

[mattyeux]

heu ..... ca a l'air de marcher .... j'ai rien changé pourtant, c bizarre ....