w3upload SaveAsUniqueFile

4 svar · 443 visningar · startad av leniz 18 dec. 2006

lenizMedlem sedan aug. 2001676 inlägg

Frågan18 dec. 2006 10:48#1

Hej!

Har en kod som laddar upp en bild med w3upload. Jag vill använda mig av SaveAsUniqueFile för att försäkra mig om att bilderna som laddas upp får ett unikt namn om det redan skulle finnas en bild med samma namn.

Allt går bra, kruxet är att jag vill få ut det ev. nya namn som skapas för filen om det redan finns en bild med samma namn, och spara det nya namnet i databasen.

I koden nedan så innehåller uniktnamn filnamnet men även hela sökvägen. Undrar hur jag ska göra för att få bort sökvägen ur uniktnamn och bara behålla filnamnet med ändelse?

Set upload   = Server.CreateObject( "w3.upload" )

Set fileName  = upload.Form( "f1" )
filnamn=fileName.filename
if fileName.IsFile then
				
uniktnamn = fileName.SaveAsUniqueFile(Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & "\upload\" &  filnamn)
						
sql="update startsida set bild1 = '"& uniktnamn &"'"

end if

voigtann1Medlem sedan juni 20019 519 inlägg

18 dec. 2006 10:57#2

Ersätt uniktnamn med filnamn?

lenizMedlem sedan aug. 2001676 inlägg

18 dec. 2006 11:52#3

Tack för svar men då sparar jag ju fel filnamn.

Om bilden som laddas upp heter tomte.jpg och så ligger det redan en tomte.jpg i mappen så får bilden namnet tomte(2).jpg.

Filnamn innehåller alltså i det här fallet tomte.jpg, och det filnamn jag vill spara ligger i uniktnamn och är alltså sökväg+tomte(2).jpg

Ur det vill jag då få ut tomte(2).jpg så att jag kan spara det i databasen.

voigtann1Medlem sedan juni 20019 519 inlägg

18 dec. 2006 11:53#4

ta en replace på det du vill ta bort?

uniktnamn = replace(uniktnamn,Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & "\upload\","")

@ndersMedlem sedan juni 200032 967 inlägg

18 dec. 2006 11:57#5

... eller använd InstrRev() för att ta reda på positionen för strängens sista slash, använd den positionen för att hämta allt till höger om den mha Right().