Automatisk indsættelse af filnavne i en DB

Det må være noget ala :

Dim fs, f, fc, s, tempsti
tempsti = \"C:\\ETELLERANDET\"

Set Conn = CreateObject(\"ADODB.Connection\")
Call conn.Open (\"DBNAVN\",\"username\",\"pass\")

Set fs = CreateObject(\"Scripting.FileSystemObject\")
set f = fs.GetFolder(tempsti)
Set fc = f.Files

For Each f1 in fc
  SQL = \"INSERT INTO filer (filName) VALUES(\'\" &  f1.name & \"\')\"
  Conn.Execute(SQL)
Next


Set fs = Nothing
Conn.Close


hyde

Tak, det virker lige præcist som det skal.

Blot for at få stillet min nysgerrighed, så vil jeg lige høre om man kan få den til at understøtte sub-dirs? Dvs. pløje alle subdirs igennem fra den sti man har angivet i tempsti-variablen?

Set fs=CreateObject(\"Scripting.FileSystemObject\")
ReDim mappeArray(1)

mappeArray(0) = \"C:/ETELLERANDET\"
taellerTilfoej = 1

taellerOp = 0

Do While taellerOp < UBound(mappeArray)
tempsti = mappeArray(taellerOp)
Set f = fs.GetFolder(tempsti)
Set fc = f.SubFolders
  For Each f1 in fc
    ReDim Preserve mappeArray(UBound(mappeArray) + 1)
    mappeArray(taellerTilfoej) = (tempsti & \"\\\" & f1.name)
    taellerTilfoej = taellerTilfoej + 1
  Next
taellerOp = taellerOp + 1
Loop


For tael = 0 To UBound(mappeArray)-1
set f = fs.GetFolder(mappeArray(tael))
Set fc = f.Files

For Each f1 in fc
SQL = \"INSERT INTO filer (filName) VALUES(\'\" &amp;  f1.name &amp; \"\')\"
Conn.Execute(SQL)
Next


Next

Mangler lige
Dim mappeArray () øverst.
Men prøv den lige har ikke testet den ??


hyde