Magnifico planteamiento si señor lo voy a rematar
Esto serviria para indexar todos los ficheros de un directorio y almacenarlos en una base de datos.
La base de datos os la dejo aqui:
http://www.expansionweb.net/asp_pruebas/mybase.mdb
Es una base de access 2000 llamada mybase.mdb, con una tabla llamada ficheros y un solo campo llamado nombre.
El script esta ajustado para listar e indexar los ficheros del directorio donde lo coloqueis.
La base de datos debe esta en el directorio FPDB (estaba con el FRONTPAGE) de vuestro sitio, cambiarlo a vuestro gusto
El codigo seria este:
<%
Set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fpdb/mybase.mdb")
' Cambiar fpdb por el directorio donde ubiqueis la base de datos
' Recordar darle permisos de escritura que vamos a escribir en ella
sql = "SELECT * FROM ficheros"
rs.Open SQL, oConn,1,2
Set MObjArch = Server.CreateObject("Scripting.FileSystemObject")
Set MFolder = MObjArch.getFolder(server.mappath("/"))
Set MArchivos = MFolder.Files
For Each MArchivo In MArchivos
'esto los muestra por pantalla, para que veamos que valores
'se van a añadir a la base de datos.
response.write(MArchivo.Name &"<br>")
'Esto los ubica en la base de datos
rs.addnew
rs("nombre")=MArchivo.Name
' Aqui podriamos capturar tambien otros valores como el tamaño
' Fecha y hora, etc
rs.update
Next
%>
Que os aproveche.
