--- title: "Fso" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/14363-fso" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Asa" published: "2002-02-11T11:17:00.000Z" updated: "2002-02-12T00:09:00.000Z" replies: 16 views: 404 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/14363-fso" --- # Fso ## #1 — Asa, 2002-02-11T11:17Z Denna kod skall spara över en bil med ex namnet 00001.gif men om den finns blir det felmeddelande: Koden: \<%If Request.QueryString("do") = "" Then Set Conn = Server.CreateObject("ADODB.Connection") Set RecSet = Server.CreateObject("ADODB.Recordset") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db SQL = "Select Top 1 \* From galleri Order By id desc" Set RecSet = Conn.Execute(SQL) Nynamn = RecSet("id")+1 Filen = Session("fil") extension = right(Filen,4) ' bygger det nya filnamnet. Eftersom det exempelvis kan stå 48, så vill vi istället ' att det skall stå 00048 och det kan man göra på följande sätt: filename = Right("00000" & trim(Nynamn), 5) ' bygger ihop det nya filnamnet Nytt = filename & extension UPLOAD_PATH = Server.MapPath("pics") Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set Folder = Fso.getFolder(UPLOAD_PATH) Fso.MoveFile UPLOAD_PATH & "\\" & Filen , UPLOAD_PATH & "\\" & Nytt%\> Felmeddelande: Serverobjekt fel 'ASP 0177 : 800a003a' Server.CreateObject misslyckades /Bildgalleriv2/skicka.asp, rad 73 00000000 Det är raden: Fso.MoveFile UPLOAD_PATH & "\\" & Filen , UPLOAD_PATH & "\\" & Nytt Permalänk: https://www.webforum.nu/p/14363 ## #2 — OveRRidE, 2002-02-11T12:42Z ``` Server.CreateObject misslyckades ``` Hrmm.. :) Permalänk: https://www.webforum.nu/p/310172 ## #3 — Herman, 2002-02-11T16:01Z Jag har varit med om liknande problem efter att jag installerade en MS produkt (minns inte om det var studio eller office). Prova att installera om scriptmotorn. Permalänk: https://www.webforum.nu/p/310173 ## #4 — Asa, 2002-02-11T16:18Z Och hur gör man det då?? Permalänk: https://www.webforum.nu/p/310174 ## #5 — Herman, 2002-02-11T17:02Z Ladda ner från Permalänk: https://www.webforum.nu/p/310175 ## #6 — Asa, 2002-02-11T17:08Z Funkar inte iallafall! :( Permalänk: https://www.webforum.nu/p/310176 ## #7 — Herman, 2002-02-11T17:44Z Är du säkert på att det är raden Fso.MoveFile UPLOAD_PATH & "\\" & Filen , UPLOAD_PATH & "\\" & Nytt som ger felet? Där anropas ju bara en metod - inget objekt skapas mig veteligen. Permalänk: https://www.webforum.nu/p/310177 ## #8 — @nders, 2002-02-11T17:47Z Om det inte fungerar att skriva över, kan du ju alltid prova att använda FSO-metoderna FileExists och DeleteFile, för att radera innan du sparar filen. Mvh, Permalänk: https://www.webforum.nu/p/310178 ## #9 — Asa, 2002-02-11T19:00Z Tack för tipset - ska testa! Permalänk: https://www.webforum.nu/p/310179 ## #10 — Asa, 2002-02-11T19:16Z Detta funkade inte :( Vad är fel?? \<%If Request.QueryString("do") = "" Then Set Conn = Server.CreateObject("ADODB.Connection") Set RecSet = Server.CreateObject("ADODB.Recordset") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db SQL = "Select Top 1 \* From galleri Order By id desc" Set RecSet = Conn.Execute(SQL) Nynamn = RecSet("id")+1 Filen = Session("fil") extension = right(Filen,4) ' Bygger det nya filnamnet. Eftersom det exempelvis kan stå 48, så vill vi istället ' att det skall stå 00048 och det kan man göra på följande sätt: filename = Right("00000" & trim(Nynamn), 5) ' Bygger ihop det nya filnamnet Nytt = filename & extension UPLOAD_PATH = Server.MapPath("pics") Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set Folder = Fso.getFolder(UPLOAD_PATH) 'Response.Write UPLOAD_PATH & "\\" & Filen & " - "& UPLOAD_PATH & "\\" & Nytt 'Response.End If Fso.FileExists(UPLOAD_PATH & "\\" & Filen) Then Fso.DeleteFile(UPLOAD_PATH & "\\" & Filen) Fso.MoveFile UPLOAD_PATH & "\\" & Filen , UPLOAD_PATH & "\\" & Nytt Else Response.Redirect "upload.asp" End If%\> \[Redigerat av Asa den 11 feb 2002\] Permalänk: https://www.webforum.nu/p/310180 ## #11 — @nders, 2002-02-11T19:27Z Exakt vad är det som inte fungerar? Mvh, Permalänk: https://www.webforum.nu/p/310181 ## #12 — @nders, 2002-02-11T19:29Z Hm, är det inte *UPLOAD_PATH & "\\" & Nytt* du skall kolla av om den finns förresten? Mvh, Permalänk: https://www.webforum.nu/p/310182 ## #13 — Asa, 2002-02-11T19:30Z Som jag har in koden nu så laddar den upp en fil och sen tar den bort filen när felmeddelandet blir! Permalänk: https://www.webforum.nu/p/310183 ## #14 — Asa, 2002-02-11T19:36Z Det har du nog rätt i! Och det funkade fint! Tackar för att du var så uppmärksam! \[Redigerat av Asa den 11 feb 2002\] Permalänk: https://www.webforum.nu/p/310184 ## #15 — solbulle, 2002-02-11T20:03Z Ganska festligt faktist, sitter själv o knåpar på en liknande grej som du redan gjort ser jag. Hur som helst, en ide tycker jag är att du när du gör dina thumbnails är att du håller dig till en fast höjd, tex 120px men låter bredden variera så att du inte "förstör" bildens proportioner. Bara en tanke. Permalänk: https://www.webforum.nu/p/310185 ## #16 — Asa, 2002-02-11T20:31Z Jag har haft så men om någon laddar upp en bild om är typ 800 hög så blir det inge snyggt alls!! Kolla själv: Och förresten finns bildgalleriet för nerladdning! Version 1 iallafall - det är 2:an jag håller på med nu! \- under aspscript \[Redigerat av Asa den 11 feb 2002\] Permalänk: https://www.webforum.nu/p/310186 ## #17 — solbulle, 2002-02-12T00:09Z Håller med dig, det blev inte så bra... Permalänk: https://www.webforum.nu/p/310187 --- Tråden på webben: https://www.webforum.nu/amne/asp/14363-fso