Denna kod skall spara över en bil med ex namnet 00001.gif men om den finns blir det felmeddelande: Skriv: Den skriver exakt det som ska hända: Men när filen redan finns blir det felmeddelandet. Annars går det bra! Hehe, exakt samma som i Palles forum. Men jag vet inte hur du ska kunna lösa problemet.. Lös det genom att kopiera filen till det nya stället och ta sedan bort den gammla. i commandot copyFile() kan du nämligen sätta om ma skall skriva över en fil som redan finns...FSO byt namn??
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 & "\" & NyttSv: FSO byt namn??
Response.Write UPLOAD_PATH & "\" & Filen & " - "& UPLOAD_PATH & "\" & Nytt
Response.End
och se om det inte står något konstigt filnamn.
/PelleSv: FSO byt namn??
C:\Inetpub\wwwroot\Bildgalleriv2\pics\asa5-2001-07-17.jpg - C:\Inetpub\wwwroot\Bildgalleriv2\pics\00013.jpgSv: FSO byt namn??
http://213.65.131.47/Bildgalleriv2/upload.aspSv: FSO byt namn??
Sv: FSO byt namn??
Sub CopyFile(Source As String, Destination As String, [OverWriteFiles As Boolean = True])
Member of Scripting.FileSystemObject
Copy a file
- Magnus