ändra filename i upload?

Ett förslag kanske.. :)

Det nya filnamnet finns i variabeln strNewName.

[red]strPath = Server.MapPath(Request.ServerVariables("PATH_INFO"))

Set Fso = CreateObject("Scripting.FileSystemObject")
	Set objFile = Fso.GetFile(strPath)
		Set objFolder = objFile.ParentFolder
			intFiles = objFolder.Files.Count
		Set objFolder = Nothing
	Set objFile = Nothing
Set Fso = Nothing

strOldName = Upload("upload").Item("filename")
strNewName = "bild"& intFiles & "."& Right(strOldName, Len(strOldName) - InStrRev(strOldName, ".", -1, 1))[/red]

hur sparar jag den nya filnamnet?

Hur sparade du det gamla filnamnet? ;)

 <%@EnableSessionState=True%>
<%Response.Buffer=True%>
<%Response.Expires=0

	UPLOAD_PATH	= Server.MapPath("bildspel")
		Set Fso	= Server.CreateObject("Scripting.FileSystemObject")
		Set Folder	= Fso.getFolder(UPLOAD_PATH)

If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
			Set Upload	= get_upload_files()
			fcontent	= Upload("upload").Item("content")

              allowlist = ".gif,.jpg,.bmp,.png"
              extension = right(extract_filename(Upload("upload").Item("filename")),4)
                If Fso.FileExists(UPLOAD_PATH & "\" & extract_filename(fcontent)) Then
                    Session("mess") = "En fil med det namnet finns redan!"
		    Response.Redirect "upload.asp"
                Else
                     If instr(allowlist,extension) then
                       Set File	= Fso.CreateTextFile(UPLOAD_PATH & "\" & extract_filename(Upload("upload").Item("filename")))
                 	 Else
                        Session("mess") = "Du får <b>inte</b> skicka upp filen med det filformatet.<br>Endast <b>" & allowlist & "</b> är godkända."
                        Response.Redirect "upload.asp"
                     End If
                End If                        
		For i = 1 to LenB(fcontent)
			File.Write chr(AscB(MidB(fcontent, i, 1)))
		Next
		File.Close: Set File	= Nothing
                Session("fil") = extract_filename(Upload("upload").Item("filename"))
                Session("visa") = "ok"
		Response.Redirect "upload.asp"
	End If

[red]Set File = Fso.CreateTextFile(UPLOAD_PATH &"\"& strNewName)[/red]

tack det fungerade

np! :bire