---
title: "Filhantering......"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/94834-filhantering"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ragnared"
published: "2004-01-15T05:22:09.000Z"
updated: "2004-01-15T05:22:09.000Z"
replies: 0
views: 185
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/94834-filhantering"
---

# Filhantering......

## #1 — ragnared, 2004-01-15T05:22Z

Jag har ett system som ser vilka filer som ligger i rooten där denna fil ligger. Men när dom listas så kommer den fil jag nyligen laddat upp längst ner. Jag vill att den ska hamna längst upp på sidan och sedan neråt. Går detta att fixa skulle jag bli tacksam...

\<%
If request("mapp") = "" then 
	Root = Server.mappath(".")
		set fs=Server.CreateObject("Scripting.FileSystemObject")
		set fo=fs.GetFolder(root)
			for each x in fo.SubFolders
				Response.write "\<tr\>\<td\>\<b\>\<a href=""filerna.asp?mapp="& x.Name &"""\>"& x.Name &"\</a\>\</b\>\</td\>"
				Response.write "\<td\>"& Round(x.size/1024,2) &" kb\</td\>"
				Response.write "\<td\>"& FormatDateTime(x.DateCreated,2) &", "& FormatDateTime(x.DateCreated,4) &"\</td\>"
			next
		set fo=nothing
		set fs=nothing

	Set fil = Server.CreateObject("Scripting.FileSystemObject")
	Set mapp = fil.getFolder(Root)
		For Each x In mapp.files 	
			Response.write "\<tr\>\<td\>\<a href="& x.name &"\>"& x.name &"\</a\>\</td\>"
			Response.write "\<td\>"& Round(x.size/1024,1) &" kb\</td\>"
			Response.write "\<td\>"& FormatDateTime(x.DateCreated,2) &", "& FormatDateTime(x.DateCreated,4) &"\</td\>\</tr\>"
		Next
	Set fil = nothing
	Set mapp = nothing

Else
'Fixxar mappen
	tidigare = Request("mapp")
	Root = Server.Mappath(tidigare)
		set fs=Server.CreateObject("Scripting.FileSystemObject")
		set fo=fs.GetFolder(root)
			for each x in fo.SubFolders
				Response.write "\<tr\>\<td\>\<b\>\<a href=""filerna.asp?mapp="& tidigare &"/"& x.Name &"""\>"& x.Name &"\</a\>\</b\>\</td\>"
				Response.write "\<td\>"& Round(x.size/1024,2) &" kb\</td\>"
				Response.write "\<td\>"& FormatDateTime(x.DateCreated,2) &", "& FormatDateTime(x.DateCreated,4) &"\</td\>"
			next
		set fo=nothing
		
'Fixxar filer
	mapp = request("mapp")
	Mappen = Server.MapPath(mapp)

	Set fil = Server.CreateObject("Scripting.FileSystemObject")
	Set mapp = fil.getFolder(Mappen)
		For Each x In mapp.files %\>	
				\<tr\>\<td\>\<a href="\<%=request("mapp") %\>/\<%=x.name %\>"\>\<%=x.Name %\>\</a\>\</td\>
				\<% Response.write "\<td\>"& Round(x.size/1024,2) &" kb\</td\>"
				Response.write "\<td\>"& FormatDateTime(x.DateCreated,2) &", "& FormatDateTime(x.DateCreated,4) &"\</td\>"
		Next
	Set fil = nothing
	Set mapp = nothing
	End if
	%\>

Permalänk: https://www.webforum.nu/p/94834

---

Tråden på webben: https://www.webforum.nu/amne/asp/94834-filhantering