---
title: "Filstorlek i funktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12218-filstorlek-i-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Mz"
published: "2001-10-20T22:20:00.000Z"
updated: "2001-10-22T07:58:00.000Z"
replies: 5
views: 194
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/12218-filstorlek-i-funktion"
---

# Filstorlek i funktion

## #1 — Mz, 2001-10-20T22:20Z

Hej!

Hittade denna snutten här på Webforum:

```
<% 
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile(Server.MapPath("bild.gif"))
storlek = fil.size
storlek2 = storlek / 1000
%>
```

Hur gör jag för att skapa en funktion av denna så jag slipper skriva hela snutten om och om igen?

Tack på förhand.

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

## #2 — Morph, 2001-10-20T22:30Z

Nåt sånt här kanske:

```
Function getFileSize(strFil)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile(Server.MapPath(strFil))
storlek = fil.size
getFileSize = storlek / 1000
Set fil = Nothing
Set fso = Nothing
End Function
```

Du anropar den såhär:

```
storlek = getFileSize("bild.gif")
```

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

## #3 — Mz, 2001-10-20T22:54Z

Jag körde in det så här:

```
<%
Function getFileSize(strFil)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile(Server.MapPath(strFil))
storlek = fil.size
getFileSize = storlek / 1000
Set fil = Nothing
Set fso = Nothing
End Function

Response.Write getFileSize(RecSet("file"))
%>
```

Den hämtar sökvägen till filen från databasen...

När jag kör detta hänger sig hela IIS. :(
Någon som vet varför?

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

## #4 — icaaq, 2001-10-21T10:39Z

```
<%
Function getFileSize([b]ByVal[/b] strFil)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile(Server.MapPath(strFil))
storlek = fil.size
getFileSize = storlek / 1000
Set fil = Nothing
Set fso = Nothing
End Function

strFil = RecSet("file")

Response.Write getFileSize(strFil)
%>
```

vet inte om det hjälper men det kan ju vara värt ett försök :)

det jag gjorde vara att lägga till ett ByVal(ByValidate) och sen la jag in RecSet("file") i en variabel .... du kan ju testa :)

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

## #5 — Mz, 2001-10-21T14:33Z

Tyvärr, hela IIS hänger sig igen och måste startas om... :(

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

## #6 — rymdknark, 2001-10-22T07:58Z

borde det inte stå:

getFileSize = storlek / 1024

istället för:

getFileSize = storlek / 1000

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12218-filstorlek-i-funktion