Tjena!

Har en liten upload funktion som ser ut enligt följande:
<code>
Set Upload = Server.CreateObject("Persits.Upload")

SavePath = Server.MapPath("../uploadfiles")
Upload.Save SavePath

Set File = Upload.Files("THEFILE")

filename = Right(file.path,Len(file.path)-InstrRev(file.path,"\"))

If Not File Is Nothing Then

Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/workshop.mdb")



SQL = "INSERT INTO filer(filename, description, kundid, year, month, day, filesize) VALUES('"
SQL = SQL & filename & "', '"
SQL = SQL & Replace(Upload.Form("DESCR"), "'", "''") & "', "
SQL = SQL & Upload.Form("id")& ","
SQL = SQL & Year(Date) & ","
SQL = SQL & Month(Date) & ","
SQL = SQL & Day(Date) & ","
SQL = SQL & File.Size & ")"


File.ToDatabase Connect, SQL
Response.Write "<b>Fil sparad.</b>"
Else
Response.Write "<b>Fil ej vald.</b>"
End If
</code>

Är det möjligt att byta namn på filen i uploaden? Så att när jag laddar upp fil.exe sparas den på servern som tex. tid+fil.exe?

Tack...

/Andreas

Det är ju enkelt eftersom du redan har fått ut filnamnet. Då är det bara att kasta på lite extra information. Exempel (du bör nog göra en annan lösning på datumet dock):

<code>
set file = Upload.Files("THEFILE")
filename = Right(file.path,Len(file.path)-InstrRev(file.path,"\"))
newfilename = date()+filename
</code>

Men döper det där verkligen om själva filen? Ger inte det där bara ett annat namn i databasen?


/andreas

Jo det stämmer - det är jag som är slarvig. Nu kan jag inte den komponenten men du kanske kan prova:

<code>
Upload.Filename = "kalle.txt"
Upload.Save SavePath
</code>

Alternativt att låta den laddas upp och sedan döpa om den med FSO vilket du enkelt gör med några få rader programkod.

<code>
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "d:\upload\kalle.txt", "d:\upload\kalle2.txt"
</code>

FSO grejen verkar bra...har bara ett litet problem. På datorn jag sitter på nu går det inte att via FSO att radera eller döpa om filer (burken står bara å tuggar). Vad har jag missat för inställning i burken? Brukar sitta på en annan burk oxå och där funkar det. Kommer bara inte ihåg om jag gjorde någon speciell inställning där. Någon som vet?

(Det är inte Norton... provat att stänga av den men det funkar inte ändå)