MagicBuzz | C pas grave
Tiens, pour te consoller, un bon gros bout bien bourrin de mon code bien dégeux
Ca copie tout bêtement la structure (fichiers/répertoires) de ton disque C: dans une base de données
Code :
- <%@ Language=VBScript %>
- <%
- function quote(byval chaine)
- if not isnull(chaine) or chaine <> "" then
- chaine = replace(chaine,"'","''" )
- quote="'"&chaine&"'"
- else
- quote="''"
- end if
- end function
- Sub IndexSubFolder(repertoire, byval pere, byref maxid)
- ' Attention ! Un objet "ADODB.Connection" doit être déclaré en global et porter le nom de "cnx"
- ' repertoire : Répertoire à indexer. Type "folder"
- ' pere : ID du répertoire père (1 pour la racine)
- ' maxid : Répêrtoire en cours (utilisé lors de la récusrivité)
- for each fil in repertoire.files
- sql = "insert into Image (nom, rep_id) values (" & quote(fil.name) & ", " & pere & " )"
- cnx.Execute sql
- next
- for each fol in repertoire.subfolders
- maxid = maxid + 1
- sql = "insert into Repertoire (nom, parent) values (" & quote(fol.name) & ", " & pere & " )"
- cnx.Execute sql
- IndexSubFolder fol, maxid, maxid
- next
- Response.Write "."
- Response.flush
- end Sub
- %>
- <HTML>
- <HEAD>
- <title>Test</title>
- </HEAD>
- <BODY>
- <%
- parent = 1
- dim fso, rep, cnx
- set cnx = Server.CreateObject("ADODB.Connection" )
- cnx.Open MA_CHAINE_DE_CONNEXION
- set fso = server.CreateObject("Scripting.FileSystemObject" )
- set rep = fso.GetFolder("c:\" )
- IndexSubFolder rep, parent, parent
- cnx.Close
- set cnx = nothing
- Response.Write "end"
- %>
- </BODY>
- </HTML>
| [edit]--Message édité par magicbuzz--[/edit] |