---

heyza

Jeg ønsker at lave en script, som går ned i min database. Tjekke
alle mine filenavne som står i databasen, hvis der så er en fil
på min server som ikke står i databasen, slettes den.

Nu har jeg selv prøvet at kode noget FSO:
<%   
'DB
strSQL = "SELECT * From Cars"
Set rs = Conn.Execute(strSQL)
%>

<%
'FSO
Dim fso
Dim folder
Dim files

Set fso    = Server.CreateObject("Scripting.FileSystemObject")
Set folder   = fso.getFolder(Server.MapPath("\images\"))
Set files   = folder.Files

For Each File In Files

If not rs("image") = file.Name Then
' Slet filen
files.delete(file.name)
End If
rs.movenext

next
%>

Når jeg kører denne kode får jeg denne fejlmedelse:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'files.delete'

/SuperFlyDK/script_delete.asp, line 17


Denne fejl betyder jo at jeg ikke kan bruge files som er filerne
i min mappe til at slette med.

Så hvad skal jeg s bruge/gøre?

På forhånd tak

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"Kenneth Auchenberg" <kenneth@thefatman.dk> wrote in message
news:bff0t9$5ko$1@sunsite.dk...
> heyza
>
> Jeg ønsker at lave en script, som går ned i min database. Tjekke
> alle mine filenavne som står i databasen, hvis der så er en fil
> på min server som ikke står i databasen, slettes den.
>
> Nu har jeg selv prøvet at kode noget FSO:
> <%
> 'DB
> strSQL = "SELECT * From Cars"
> Set rs = Conn.Execute(strSQL)
> %>
>
> <%
> 'FSO
> Dim fso
> Dim folder
> Dim files
>
> Set fso = Server.CreateObject("Scripting.FileSystemObject")
> Set folder = fso.getFolder(Server.MapPath("\images\"))
> Set files = folder.Files
>
> For Each File In Files
>
> If not rs("image") = file.Name Then
> ' Slet filen
> files.delete(file.name)
> End If
> rs.movenext
>
> next
> %>
>
> Når jeg kører denne kode får jeg denne fejlmedelse:
> Microsoft VBScript runtime error '800a01b6'
>
> Object doesn't support this property or method: 'files.delete'
>
> /SuperFlyDK/script_delete.asp, line 17
>
>
> Denne fejl betyder jo at jeg ikke kan bruge files som er filerne
> i min mappe til at slette med.
>
> Så hvad skal jeg s bruge/gøre?
>
> På forhånd tak
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! => http://www.html.dk/tutorials


>files.delete(file.name)

Du skal i stedet bruge:

fso.deletefile(path og filnavn)

/mikkel

http://spacerent.dk - Webhosting fra 49,-/md.

---

heyza

Hvis jeg bruger denne kode:
<%   
'DB
strSQL = "SELECT * From Cars"
Set rs = Conn.Execute(strSQL)
%>

<%
'FSO
Dim fso
Dim folder
Dim files

Set fso    = Server.CreateObject("Scripting.FileSystemObject")
Set folder   = fso.getFolder(Server.MapPath("\images\"))
Set files   = folder.Files

For Each File In Files

If not rs("image") = file.Name Then
' Slet filen
fso.deletefile(Server.MapPath("\images\"& file.name))
End If
rs.movenext

next
%>

så får jeg denne fejl:
error '80020009'
Exception occurred.

/SuperFlyDK/script_delete.asp, line 20


og linie 20 er:
If not rs("image") = file.Name Then


Håber I kan hjælpe mig

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"Kenneth Auchenberg" <kenneth@thefatman.dk> wrote in message
news:bfhifc$273$1@sunsite.dk...
> heyza
>
> Hvis jeg bruger denne kode:
> <%
> 'DB
> strSQL = "SELECT * From Cars"
> Set rs = Conn.Execute(strSQL)
> %>
>
> <%
> 'FSO
> Dim fso
> Dim folder
> Dim files
>
> Set fso = Server.CreateObject("Scripting.FileSystemObject")
> Set folder = fso.getFolder(Server.MapPath("\images\"))
> Set files = folder.Files
>
> For Each File In Files
>
> If not rs("image") = file.Name Then
> ' Slet filen
> fso.deletefile(Server.MapPath("\images\"& file.name))
> End If
> rs.movenext
>
> next
> %>
>
> så får jeg denne fejl:
> error '80020009'
> Exception occurred.
>
> /SuperFlyDK/script_delete.asp, line 20
>
>
> og linie 20 er:
> If not rs("image") = file.Name Then
>
>
> Håber I kan hjælpe mig
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! => http://www.html.dk/tutorials



> If not rs("image") = file.Name Then

Prøv i stedet:

if rs("image")<>file.name then

og flyt så next op før rs.movenext


/mikkel

http://spacerent.dk - Webhosting fra 49,-/md.

---

heyza Mikkel

Jeg brugte dine tips og ænderede lidt og så var den der:
<%   
'DB
strSQL = "SELECT * From Cars"
Set rs = Conn.Execute(strSQL)
%>

<%
'FSO
Dim fso
Dim folder
Dim files

Set fso    = Server.CreateObject("Scripting.FileSystemObject")
Set folder   = fso.getFolder(Server.MapPath("images"))
Set files   = folder.files

For Each File In files
'Hvis fil er forskellig fra database:
if rs("image") <> file.name Then
' Slet filen
fso.deletefile(Server.MapPath("images\"& file.name))
End If

rs.movenext

next
%>

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials