---

Hej NG

Er det muligt at lave noget kode i ASP der kan gå igennem alle filerne i
én specifik mappe og tjekke dem mod en database og i de tilfælde hvor de
ikke er i databasen så slette filerne?

Det drejer sig om en mappe på b-ones server og de bruger en
ASP-fortolker fra Sun Microsystems, for yderligere teknisk information
se: http://www.sun.com/software/chilisoft/.

Det behøver ikke være en færdig løsning i kommer med, bare i peger mig i
den rigtige retning, så bare en ide og evt. et link.

På Forhånd Tak!

--
MooreHojer

---

Har fundet en løsning

<--KODE START-->

ConnString
="Driver={MySQL};SERVER=localhost;DATABASE=*****;UID=*****;PASSWORD=*****"
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = server.CreateObject("ADODB.recordset")
Conn.Open ConnString

Dim folderspec, fso, f, f1, fc, s, b

folderspec = Server.Mappath("/login/upload/test/")

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
set rs = conn.execute("select * from opload where filnavn = '" &
f1.name & "'")
If rs.EOF or rs.BOF Then
s = s & f1.name
s = s & " <b>- er slettet</b>"
s = s & "<BR>"

Dim filespec, gso
filespec = Server.Mappath("/login/upload/test/" & f1.name & "")
Set gso = CreateObject("Scripting.FileSystemObject")
gso.DeleteFile(filespec)
Else
b = b & f1.name
b = b & "<BR>"
End If
Next
Response.Write "<u>Følgende filer <b><i>IKKE</i></b> blevet
slettet:</u><br>" & b
Response.Write "<br><br>Følgende filer blevet slettet:<br>" & s

<--KODE SLUT-->

--
MooreHojer