slette flere filer med FileSystemObject

arh, dim sætningen hedder selvfølgelig 

dim delsti, FSO

men det ændrer ikke på mit spørgsmål ;-) (bare en lille detalje)

et loop ?
Smid filnavnene i et array, dim og redim (preserve) arrayet efterhånden som du fylder filnavne i det og fjerner de filnavne fra arrayet som er slettet og kør så dette loop igennem din FSO delete sætning.

ehhhhh. du har helt sikkert ret, men jeg er stået af, fatter minus, jeg bøjer mig i støvet ;-)

kan vi tage den på den pædagogiske måde - altså til os mindre bemidlede ?

takker,
Claus

okay, når du vil slette flere filer kender du jo åbenbart filernes filnavne...
Hvis du laver et Array og lægger filnavne heri, kan du jo lave en løkke der kører fra sidste plads i dit array til første plads i dit array og sletter dem en af gangen.

i denne stil, eller er det helt forkert ? Jeg er *ikke* særlig erfaren i loops ;-)


sql = \"SELECT * FROM BILLEDDATABASE WHERE id = \"&Request.QueryString(\"id\")&\"\"
        Set rs_tmp = conn.execute(sql)
       
            if not (rs_tmp.eof) then
               
                dim filer
                filer = array(\"&rs_tmp(\"coverpic\"), &rs_tmp(\"menupic1\"), &rs_tmp(\"menupic2\"), &rs_tmp(\"menupic3\"))
                   
                ????loop start???????
               
                    delsti2 = Server.MapPath(\"/images/\"&filer))
                    Set FSO2 = Server.CreateObject(\"Scripting.FileSystemObject\")
                    FSO2.DeleteFile(delsti2)
               
                ????loop slut??????   
               
                Set FSO2 = nothing
                Set rs_tmp = nothing
                   
            end if

sql = \"SELECT * FROM BILLEDDATABASE WHERE id = \"&Request.QueryString(\"id\")&\"\"
        Set rs_tmp = conn.execute(sql)
       
            if not (rs_tmp.eof) then


filer = rs_tmp(\"coverpic\") & \"|\" & rs_tmp(\"menupic1\") & \"|\" & rs_tmp(\"menupic2\") & \"|\" & rs_tmp(\"menupic3\"))
deletefiles = split(filer, \"|\")

Set FSO2 = Server.CreateObject(\"Scripting.FileSystemObject\")
delsti2 = Server.MapPath(\"/images/\")

for each item in deletefiles
tmpfile = delsti2 & item
FSO2.deletefile(tmpfile)
next


                Set FSO2 = nothing
                Set rs_tmp = nothing
                   
            end if

hey,

tak for hjælpen - men den sletter kun den første fil (coverpic) fra serveren (??)

samme problem som jeg har haft med andre kombinationer også...

Claus

Hm...så prøv med
---------------------------------

sql = \"SELECT * FROM BILLEDDATABASE WHERE id = \"&Request.QueryString(\"id\")&\"\"
        Set rs_tmp = conn.execute(sql)
       
            if not (rs_tmp.eof) then


filer = rs_tmp(\"coverpic\") & \"|\" & rs_tmp(\"menupic1\") & \"|\" & rs_tmp(\"menupic2\") & \"|\" & rs_tmp(\"menupic3\"))
deletefiles = split(filer, \"|\")

Set FSO2 = Server.CreateObject(\"Scripting.FileSystemObject\")
delsti2 = Server.MapPath(\"/images/\")

for each item in deletefiles
set tmpfile = fso2.getfile(delsti2 & item)
tmpfile.delete
next


                Set FSO2 = nothing
                Set rs_tmp = nothing
                   
            end if