---
title: "Filstorlek med FSO"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/82989-filstorlek-med-fso"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Melea"
published: "2003-07-29T12:46:45.000Z"
updated: "2003-07-29T13:24:30.000Z"
replies: 6
views: 350
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/82989-filstorlek-med-fso"
---

# Filstorlek med FSO

## #1 — Melea, 2003-07-29T12:46Z

Hejsan!

Jag får inte riktigt koll på min kod när jag ska skriva in filstorleken i databasen..

```
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/Creative/files/" & Session("username") & "/" & filename))

[b]Function getFileSize(MyFile)
Set fil = ScriptObject.GetFile(Server.MapPath(MyFile))
storlek = fil.size
getFileSize = storlek / 1024
Set fil = Nothing
Set fso = Nothing
End Function

storlek = getFileSize("/Creative/files/" & Session("username") & "/" & filename)[/b]

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Driver={MySQL ODBC 3.51 Driver};server="&strserver&";uid="&struser&";pwd="&strpass&";database="&strdb&"" 

	sql = "insert into files (filename, username, datum, [b]storlek[/b]) values ('" & filename & "', '" & username & "','" & datum & "',[b]'" & storlek & "'[/b])"
	Connect.Execute(sql),,128

	Connect.Close : Set objConnect = Nothing

MyFile.Close
```

MVH

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

## #2 — solbulle, 2003-07-29T13:11Z

Vad är eg. problemet?

Det ser ut som om du sparar som text, är det rätt?

Annars skulle jag kunna tänka mig att du försöker kolla storleken på filen innan den finns på servern, kanske att du ska flytta ner anropet av funktionen till efter att filen är skriven till disk.

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

## #3 — Melea, 2003-07-29T13:13Z

Jo men jag måste ju visa vad '" & storlek & "' är, annars blir ju fältet i databasen tomt?

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

## #4 — solbulle, 2003-07-29T13:16Z

Hm.. det där förstår jag inte. Vadå vad storlek är?

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

## #5 — Melea, 2003-07-29T13:16Z

Ah flyttade ner koden som du sa så den hamnade under

```
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
```

Men det blir 12 decimaler på storleken, hur ändrar jag detta?

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

## #6 — solbulle, 2003-07-29T13:23Z

Round(tal,2) ger dig två decimaler, ändra siffran för annat antal.

```
Function getFileSize(MyFile)
Set fil = ScriptObject.GetFile(Server.MapPath(MyFile))
storlek = fil.size
getFileSize = round((storlek / 1024),2)
Set fil = Nothing
End Function
```

PS. strök Set fso = Nothing ur din funktion, du använder vä inget som heter fso va?

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

## #7 — Melea, 2003-07-29T13:24Z

Na du har rätt (som vanligt :OO)

Tackar för hjälpen än en gång ;)

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

---

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