Avatar billede jessbonde Nybegynder
13. september 2003 - 13:58 Der er 1 kommentar og
1 løsning

slette 2 filer

Jeg vil gerne slette 2 filer i samme script, men får fejl.
filerne hedder f.eks.
23.jpg
small_23.jpg

mit script ser sådan ud:

function deleteTilbud
    id = left(request.form("frmTilbud"), len(request.form("frmTilbud"))-4)
    strSQL = "DELETE * FROM tbl_tilbud WHERE Id = " & id
    set RS = objConn.execute(strSQL)

    pPath = Server.MapPath("../../upload/tilbud/")
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set sletfil = Request.form("frmTilbud")
    Set f1 = fs.GetFile(replace(pPath&"/"&sletfil, "%20", " "))
    f1.Delete
   
    Set sletfil = "small_" & Request.form("frmTilbud")
    Set f1 = fs.GetFile(replace(pPath&"/"&sletfil, "%20", " "))
    f1.Delete
end function

Jeg får fejl:

Microsoft VBScript runtime error '800a01a8'

Object required: '[string: "small_20.jpg"]'
Avatar billede eagleeye Praktikant
13. september 2003 - 23:15 #1
Du skal kun bruge Set når du har med et object at gøre så i eksvis denne linje hvor ligger en streng over i en variable skal du ikke rbuge set:
Set sletfil = "small_" & Request.form("frmTilbud")


Så prøv dette:


function deleteTilbud
    id = left(request.form("frmTilbud"), len(request.form("frmTilbud"))-4)
    strSQL = "DELETE * FROM tbl_tilbud WHERE Id = " & id
    set RS = objConn.execute(strSQL)

    pPath = Server.MapPath("../../upload/tilbud/")
    Set fs = CreateObject("Scripting.FileSystemObject")
    sletfil = Request.form("frmTilbud")
    Set f1 = fs.GetFile(replace(pPath&"/"&sletfil, "%20", " "))
    f1.Delete
   
    sletfil = "small_" & Request.form("frmTilbud")
    Set f1 = fs.GetFile(replace(pPath&"/"&sletfil, "%20", " "))
    f1.Delete
end function
Avatar billede jessbonde Nybegynder
14. september 2003 - 20:46 #2
Tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB
Seneste spørgsmål Seneste aktivitet
I går 21:00 Libre Office Impress Af Frank i Andre styresystemer
I går 11:47 VB script Af Jenshentze i Word
I går 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel