---
title: "Få ut filstorlek med FSO?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/46662-få-ut-filstorlek-med-fso"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Mika3l"
published: "2002-06-26T09:55:36.000Z"
updated: "2002-06-26T15:27:42.000Z"
replies: 10
views: 407
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/46662-få-ut-filstorlek-med-fso"
---

# Få ut filstorlek med FSO?

## #1 — Mika3l, 2002-06-26T09:55Z

Hur gör man för att få ut storleken på filer i en mapp.
Eller rättare sagt, hur radar man upp filer i en mapp och beräkna storleken på varje fil och sedan total storlek?

T.ex

\--- Filnamn ---          --- Storlek ---
Fil1                          1052b

Osv, osv....

Tacksam för lite vägledning!

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

## #2 — solbulle, 2002-06-26T10:16Z

En liknande den här kör jag, ´kan ju ge dig en ide.

```
<%
Dirfolder = "mappnamn"

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\Inetpub\wwwroot\" & Dirfolder)
set Files = Folder.Files

For each Item In Files

	response.write fileNamn(Item.Name) & "<br>"
	response.write Item.Name & "<br>"
	response.write fileExtension(Item.Name) & "<br>"
	response.write getFileSize(Item.Size) & "<br>"
	response.write Left(Item.DateCreated,10) & "<br>"
	response.write Left(Item.DateLastAccessed,10) & "<br>"
	response.write Left(Item.DateLastModified,10) & "<br>"
	response.write "<br>"

	totsize = totsize + Item.Size

Next

set Folder = nothing
set FSO = nothing
set Files = nothing

response.write "Total storlek: " & getFileSize(totsize) & "<br>"

'============================================================
'FUNKTIONER

function getFileSize(int)
If int > 1000 then
	getFileSize = round(int/1024,0) & " KB"
Else
	getFileSize = "1 KB"
End If
end function

Function fileExtension(filename)
arrArray = Split(filename,".")
fileExtension = arrArray(1) 
End Function

Function fileNamn(filename)
  fileNamn = lcase(left(filename,instr(filename,".") -1))
End Function
%>
```

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

## #3 — Mika3l, 2002-06-26T10:44Z

Tack solbulle! :) :bire 
Ska försöka vidareutveckla! :)

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

## #4 — solbulle, 2002-06-26T11:08Z

Varsågod. :)

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

## #5 — sin_adec, 2002-06-26T13:36Z

Men om jag vill att man ska kunna klicka på filen.. hur gör jag det.. typ: <http://localhost/sin_adec/filnamnet..>

```
<%

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\mina dokument\mina webbplatser\Sin_adec")
set Files = Folder.Files

For each Item In Files

	response.write Item.Name & "<br>"

Next

set Folder = nothing
set FSO = nothing
set Files = nothing

 '===========================================================

'FUNKTIONER

function getFileSize(int)
If int > 1000 then
	getFileSize = round(int/1024,0) & " KB"
Else
	getFileSize = "1 KB"
End If
end function

Function fileExtension(filename)
arrArray = Split(filename,".")
fileExtension = arrArray(1) 
End Function

Function fileNamn(filename)
  fileNamn = lcase(left(filename,instr(filename,".") -1))
End Function
%>
```

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

## #6 — solbulle, 2002-06-26T13:45Z

```
<%

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\mina dokument\mina webbplatser\Sin_adec")
set Files = Folder.Files

For each Item In Files

	'response.write Item.Name & "<br>"

response.write "<a href=""" & Item.Name & """>" & Item.Name & "</A>" & "<br>"

Next

set Folder = nothing
set FSO = nothing
set Files = nothing

  '===========================================================

'FUNKTIONER

function getFileSize(int)
If int > 1000 then
	getFileSize = round(int/1024,0) & " KB"
Else
	getFileSize = "1 KB"
End If
end function

Function fileExtension(filename)
arrArray = Split(filename,".")
fileExtension = arrArray(1) 
End Function

Function fileNamn(filename)
  fileNamn = lcase(left(filename,instr(filename,".") -1))
End Function
%>
```

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

## #7 — solbulle, 2002-06-26T13:48Z

...fast det fungerar iofs bara om scriptet är i samma folder som filerna kom jag på.
Annars kan du lägga sökvägen till mapper i en variabel (som i orginalet) och använda dig av den i länken, alternativvt kanske mappath..

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

## #8 — sin_adec, 2002-06-26T13:51Z

Tack..

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

## #9 — sin_adec, 2002-06-26T15:07Z

Hej igen..
undrar bara hur jag ska göra om jag vill visa en innehållet i en medlemms mapp

```
<%
strUsername = Recset("anv")

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\mina dokument\mina webbplatser\)  '<---- här vill jag att det ska vara \\mina webbplatser\"användarnamnet"......
set Files = Folder.Files

For each Item In Files

	'response.write Item.Name & "<br>"

response.write "<a href=""" & Item.Name & """>" & Item.Name & "</A>" & "<br>"

Next

...
..

..
%>
```

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

## #10 — UlfT, 2002-06-26T15:19Z

Pröva

```
Set Folder = FSO.GetFolder("C:\mina dokument\mina webbplatser\" & strUsername)
```

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

## #11 — sin_adec, 2002-06-26T15:27Z

Tack så mycket..

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/46662-få-ut-filstorlek-med-fso