2 svar · 372 visningar · startad av D_C
:r Känns som detta ämne berörts flertalet gånger tidigare, men får inte rätt på de svar som jag hittat i tidigare trådar. Har en fungerande upload funktion, men jag vill byta namn på filen (som ska användas som avatar) till användarens id.
filename = Right(File.Path,Len(File.Path)-InstrRev(File.Path,"\"))
Tänkte använda mig av samma kodsnutt som man använder för att ersätta "otillåtna" tecken, men istället byta ut filnamnet till användarens id. Är jag ute och cyklar, eller kan jag använda mig av replace() och i sånna fall, hur ändrar jag endast filnamnet och inte ändelsen, typ .jpg ?
filename = replace(filename,"ö", "o")
Då är du ute och cyklar! :)
Det du gör är att använda samma typ av funktion som ovan när du plockar ut filnamnet men istället plockar du ut filtypen. Sen slår du bara ihop id + filtyp till ett filnamn.
Dim extension, fileName
extension = right(File.Path, len(File.Path) - instrRev(File.Path, "."))
fileName = [id:t] & extension
Välkommen till wF förresten! :)
Tack för det snabba svaret! :)
Nu sparas rätt filnamn i db'n, men den "fysiska"-filen byter inte namn.
Jag bifogar min funktion så att helheten blir lite tydligare.
'----------------------------------------------------------------------
Set Upload = Server.CreateObject("Persits.Upload")
' Capture and save uploaded image
Upload.Save(Server.MapPath("../avatar"))
For Each File in Upload.Files
'fileName = Right(File.Path,Len(File.Path)-InstrRev(File.Path,"\"))
extension = right(File.Path, len(File.Path) - instrRev(File.Path, "."))
fileName = session("id")& "." & extension
Next
'----------------------------------------------------------------------