Eksister filen i folder ?

Jeg har fundet dette stykke kode som jeg kan checke om en fil eksister i mappen via FSO men den skal vel lave et loop så der bliver mod de filer der er i databasen, men hvordan:

  Set FSO = CreateObject("Scripting.FileSystemObject")
  If (Not FSO.FileExists(rs("filnavn"))) Then
    Response.write"Filen er ikke her"
  End If

En langsom metode ville være
 
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Do while not rs.eof
  If (Not FSO.FileExists(rs("filnavn"))) Then
    Response.write"Filen er ikke her"
  End If
  rs.movenext
  loop
Hver gang du kommer til en fil der ikke er der kan du jo slette den fra databasen. sql = delete from tabelnavn where filnavn = '"&filnavn&"';"

Jeg vill gøre det sådan:

Set rs = Connect.Execute("SELECT * FROM billeder WHERE filnavn = '" & f.name & "'")
if rs.eof then
'Billedet er ikke i databasen

    SQL = "insert into billeder (billeddir,filnavn) Values('"&stien&"','"&f.name&"')"
    Connect.Execute(SQL)

' Billedet er i databasen  så vi checker om det er fysisk i mappen         
else     

    If FSO.FileExists(Server.MapPath ("e:/dir/"&stien&"/"&rs("filnavn")&")) Then
        response.write "OK"
    Else
        response.write "NOT"
    End If




       
        Response.write "Billedet "&f.name&" er i databasen<br>"
       
            end if
           
        end if
   
next



men jeg får fejlen:


/dir/tester/test.asp, line 31

If FSO.FileExists(Server.MapPath("e:/rc-internet/"&stien&"/"&rs("filnavn")&") Then

Er denne måde hurtiger end din ?

Jeg skal bruge den fulde sti ellers virker det ikke

Ja, men du går jo ikke alle posterne igennem, det troede jeg du ville. Jeg tror ikke du skal have server.Mappath om din sti, du har jo givet den hårde sti.

arrg det kan jeg jo god se ikke holder.

den vil jo aldrig komme ind i else hvis filen ikke findes fysisk.

Hmm nu ved jeg ikke hvad der er galt
http://www.rc-internet.com/mediebank/tester/test.asp

scriptet:

<%
set connect = server.createobject("ADODB.Connection")
Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../db/images.mdb")

'Skriv her dir, f.eks:
dir = ".\"

x = Request.ServerVariables("PATH_INFO")
pos = InStrRev(x, "/")
stien = Left(x, pos)

Set fso = Server.CreateObject("Scripting.FileSystemObject")
set folder = fso.Getfolder(Server.Mappath(dir))
set files = folder.files

for each f in files
        temp = instr(f.name,".\")
       
        If Right(lcase(f.name),4) = ".jpg" Then
       
Set rs = Connect.Execute("SELECT * FROM billeder WHERE filnavn = '" & f.name & "'")
if rs.eof then
'Billedet er ikke i databasen

    SQL = "insert into billeder (billeddir,filnavn) Values('"&stien&"','"&f.name&"')"
    Connect.Execute(SQL)

' Billedet er i databasen  så vi viser lige listen         
else     
       
        Response.write "Billedet "&f.name&" er i databasen<br>"
       
        end if
           
        end if
   
next


Do while not rs.eof
  If (Not FSO.FileExists(rs("filnavn"))) Then
    Response.write"Filen "&rs("filnavn")
  End If
  rs.movenext
  loop

set files = nothing
set fso = nothing
rs.close


%>

Alle billeder er i databasen

Du mener den ikke skulle komme med Filen 013.jpg til sidst?

ja hvis jeg sletter 013.jpg så skriver den 012.jpg i den løkke du gav mig

Altså den skriver kun navnet på den sidste post i databasen i din løkke også selv om jeg evt sletter 010.jpg og 011.jpg.
Var det ikke meningen at den skulle skrive navnet på de filer der var i databasen men ikke fysisk på disken ?

æv er jeg alene ?

Nejnej, jeg kigger på det, men jeg har også lige gang i noget andet.

Du skal lave en anden rs. En der tager alle dine poster i databasen. Noget ala :
<%
set connect = server.createobject("ADODB.Connection")
Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../db/images.mdb")

'Skriv her dir, f.eks:
dir = ".\"

x = Request.ServerVariables("PATH_INFO")
pos = InStrRev(x, "/")
stien = Left(x, pos)

Set fso = Server.CreateObject("Scripting.FileSystemObject")
set folder = fso.Getfolder(Server.Mappath(dir))
set files = folder.files

for each f in files
        temp = instr(f.name,".\")
       
        If Right(lcase(f.name),4) = ".jpg" Then
       
Set rs = Connect.Execute("SELECT * FROM billeder WHERE filnavn = '" & f.name & "'")
if rs.eof then
'Billedet er ikke i databasen

    SQL = "insert into billeder (billeddir,filnavn) Values('"&stien&"','"&f.name&"')"
    Connect.Execute(SQL)

' Billedet er i databasen  så vi viser lige listen         
else     
       
        Response.write "Billedet "&f.name&" er i databasen<br>"
       
        end if
           
        end if
   
next

Set rs = Connect.Execute("SELECT * FROM billeder;")

Do while not rs.eof
  If (Not FSO.FileExists(rs("filnavn"))) Then
    Response.write "Filen " & rs("filnavn") & " er ikke i mappen, her skal du sætte den slet linie ind"
  End If
  rs.movenext
loop

set files = nothing
set fso = nothing
rs.close


%>

nu skriver den at alle filer ikke er der??
jeg tror det er fordi den skal have den fulde sti.

http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=78

Ja, det skal den, min fejl. Prøv med:
  If (Not FSO.FileExists(Server.MapPath(rs("filnavn")))) Then

http://www.rc-internet.com/mediebank/tester/test.asp

Har nu

Set rs = Connect.Execute("SELECT * FROM billeder;")
imagetest=rs("filnavn")
Do while not rs.eof
  If (Not FSO.FileExists(Server.MapPath("&stien&imagetest&"))) Then
    Response.write "Filen " & rs("filnavn") & " er ikke i mappen, her skal du sætte den slet linie ind<br>"
  End If
  rs.movenext
loop

Men den siger at der ikke er nogen af dem der er i databasen???
Arrg *grin*

Denne løkke skulle gå alle de billeder igennem der er i databasen, og se om de er i mappen. Prøv at skrive linien Server.MapPath("&stien&imagetest&") ud for hver enkelt, så kan du se om stien er korrekt.

det har jeg prøvet og de er i det rigtige dir.

Jamen, den side du har linket til, skriver da ikke det ud du skriver i koden foroven...

det er fordi jeg ikke skriver diret med ud for oven men diret er i dataabasen.

Jeg er ikke helt med på hvad du laver nu. Så vidt jeg har forstået, vil du gå alle posterne i databasen igennem, og tjekke om billedet er i mappen. Hvis billedet ikke er der, skal det slettes fra databasen. Hvorfor siger du så at billedet ikke er i databasen?

hehe undskyld jeg jokker rundt i det:

Alle billeder ligger i Dir'et
e:/dir/mediebank/tester

I databasen sætter jeg Stien ind som /mediebank/tester/
og billedet ind som navn.jpg

Håber du forstår.

Roder du ikke lidt rundt i / og \

arg jeg giver snart op

Diret hedder vel e:/dir/mediebank/tester, så stien skal vel hedde:
\mediebank\tester\

du har ret men arrg jeg har tabt tråden total nu... Måske skulle jeg bare give op og glemme det script?

så kører det sgu

If FSO.FileExists( ""&mapperoden&stien&billedet&"" ) Then
    Response.write "Den er her<br>"
    else
    response.write "Den er her ikke<br>"
    End If
  rs.movenext
loop

Fejlen var at jeg manglede et " i FSO.FileExists( ""
Det er lidt lamt men det var det der gjorde det.

Tak for hjælpen ras2000 og særligt for din tolmodighed hehe :ø)

Hey du skal da smide et svar, løkken du lavede virkede jo.

ras2000 >> Smid et svar

ras2000 >> Jeg lukker spørgsmålet men hvis du på en eller anden måde er forhindret i at smide et svar så skal du bare sige til når du igen er her for så får du naturligvis dine point.

Hej, jeg har lige ligget syg. Glad for at du fik det til at funge.

hej ras2000 >> troede du var på ferie eller sådan noget.
Godbedering og jeg har oprettet et sp til dig her http://www.eksperten.dk/spm/239779