- <!-- ************ PAGE listing.cfm ************ -->
-
- <!-- Ici le répertoire à explorer -->
- <cfset ExploreRep = "VOTRE REPERTOIRE">
-
- <!-- Accès à la page qui sera appelée lors du clic sur un fichier de l'arborescence -->
- <cfset TraitePage = "traitement.cfm">
-
- <cfset DirComplet = "">
-
- <!--- Custom Tag qui renvoie l'arborescence complète à partir du répertoire maître --->
- <cf_arbot dir="#ExploreRep#">
-
- <cfform action="#TraitePage#" method="POST">
- <cftree name="Tree"
- width="50%"
- bold="No"
- italic="No"
- border="yes"
- hscroll="yes"
- vscroll="yes"
- required="Yes"
- completepath="no"
- appendkey="Yes"
- highlighthref="no"
- >
-
- <!--- Répertoire maître --->
- <cftreeitem
- value="#ExploreRep#"
- display="#ExploreRep#"
- img="dossier_ouv.gif"
- imgopen="dossier_ferm.gif"
- queryasroot="yes"
- expand="Yes"
- >
-
- <!--- Le contenu du répertoire maître --->
- <cfloop list="#DirComplet#" index="curdir" delimiters=";">
- <cftreeitem value="#GetToken('#curdir#',1,',')#"
- display="#GetToken('#curdir#',2,',')#"
- parent="#GetToken('#curdir#',3,',')#"
- img="#GetToken('#curdir#',4,',')#"
- imgopen="dossier_ferm.gif"
- queryasroot="yes"
- expand="no"
- HREF="#TraitePage#"
- target=""
- >
- </cfloop>
- </cftree>
- </cfform>
-
-
- <!-- ************ CUSTOM TAG Arbot.cfm ************ -->
-
- <!--- Récupération du chemin à explorer --->
- <cfparam name="attributes.dir">
-
- <cfdirectory action="LIST" directory="#attributes.dir#" name="curdir" sort="Name">
- <!--- Directory = nom du répertoire --->
- <!--- Sort = liste optionnelle de colonnes séparées par une virgule IMPORTANT --->
- <!--- Name = Requête si ACTION="list" --->
-
- <cfset DirComplet = ""> <!--- Elément qui sera renvoyé --->
-
- <cfloop query="curdir"> <!--- Contient l'arboresence à partir du dossier maître --->
-
- <cfif Name is not "." and name is not "..">
- <!--- Si ACTION = "LIST"...Name = "nom du fichier ou du répertoire "
- ...Type = "FILE" pour fichier, "DIR" pour répertoire --->
- <cfif Type IS "dir">
- <cfset img = "dossier_ouv.gif">
- <cfelse>
- <cfset img = "file.gif">
- </cfif>
-
- <cfset DirComplet = DirComplet & "#attributes.dir#/#name#,#name#,#attributes.dir#,#img#;">
-
- <!--- S'il y a encore un dossier, on affiche son arborescence --->
- <!-- Appel du custom tag de manière récursive -->
- <cf_arbot dir="#attributes.dir#/#name#">
- </cfif>
- </cfloop>
-
- <cfset caller.DirComplet = caller.DirComplet & DirComplet>
-
-
- <!-- ************ PAGE traitement.cfm ************ -->
-
- <!-- Récupération du nom du fichier sur lequel l'utilisateur a cliqué -->
- <cfparam name="url.cftreeitemkey" default = "">
-
- <!-- On met au bon format le chemin complet du fichier -->
- <cfset url.cftreeitemkey = replace(trim(#url.cftreeitemkey#),"/","\","ALL")>
-
- <!-- On affiche l'élement selectionné -->
- <cfoutput>
- #url.cftreeitemkey#
- </cfoutput>
-
<!-- ************ PAGE listing.cfm ************ -->
<!-- Ici le répertoire à explorer -->
<cfset ExploreRep = "VOTRE REPERTOIRE">
<!-- Accès à la page qui sera appelée lors du clic sur un fichier de l'arborescence -->
<cfset TraitePage = "traitement.cfm">
<cfset DirComplet = "">
<!--- Custom Tag qui renvoie l'arborescence complète à partir du répertoire maître --->
<cf_arbot dir="#ExploreRep#">
<cfform action="#TraitePage#" method="POST">
<cftree name="Tree"
width="50%"
bold="No"
italic="No"
border="yes"
hscroll="yes"
vscroll="yes"
required="Yes"
completepath="no"
appendkey="Yes"
highlighthref="no"
>
<!--- Répertoire maître --->
<cftreeitem
value="#ExploreRep#"
display="#ExploreRep#"
img="dossier_ouv.gif"
imgopen="dossier_ferm.gif"
queryasroot="yes"
expand="Yes"
>
<!--- Le contenu du répertoire maître --->
<cfloop list="#DirComplet#" index="curdir" delimiters=";">
<cftreeitem value="#GetToken('#curdir#',1,',')#"
display="#GetToken('#curdir#',2,',')#"
parent="#GetToken('#curdir#',3,',')#"
img="#GetToken('#curdir#',4,',')#"
imgopen="dossier_ferm.gif"
queryasroot="yes"
expand="no"
HREF="#TraitePage#"
target=""
>
</cfloop>
</cftree>
</cfform>
<!-- ************ CUSTOM TAG Arbot.cfm ************ -->
<!--- Récupération du chemin à explorer --->
<cfparam name="attributes.dir">
<cfdirectory action="LIST" directory="#attributes.dir#" name="curdir" sort="Name">
<!--- Directory = nom du répertoire --->
<!--- Sort = liste optionnelle de colonnes séparées par une virgule IMPORTANT --->
<!--- Name = Requête si ACTION="list" --->
<cfset DirComplet = ""> <!--- Elément qui sera renvoyé --->
<cfloop query="curdir"> <!--- Contient l'arboresence à partir du dossier maître --->
<cfif Name is not "." and name is not "..">
<!--- Si ACTION = "LIST"...Name = "nom du fichier ou du répertoire "
...Type = "FILE" pour fichier, "DIR" pour répertoire --->
<cfif Type IS "dir">
<cfset img = "dossier_ouv.gif">
<cfelse>
<cfset img = "file.gif">
</cfif>
<cfset DirComplet = DirComplet & "#attributes.dir#/#name#,#name#,#attributes.dir#,#img#;">
<!--- S'il y a encore un dossier, on affiche son arborescence --->
<!-- Appel du custom tag de manière récursive -->
<cf_arbot dir="#attributes.dir#/#name#">
</cfif>
</cfloop>
<cfset caller.DirComplet = caller.DirComplet & DirComplet>
<!-- ************ PAGE traitement.cfm ************ -->
<!-- Récupération du nom du fichier sur lequel l'utilisateur a cliqué -->
<cfparam name="url.cftreeitemkey" default = "">
<!-- On met au bon format le chemin complet du fichier -->
<cfset url.cftreeitemkey = replace(trim(#url.cftreeitemkey#),"/","\","ALL")>
<!-- On affiche l'élement selectionné -->
<cfoutput>
#url.cftreeitemkey#
</cfoutput>