---
title: "convFileSize"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38213-convfilesize"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Pace"
published: "2001-08-06T19:53:00.000Z"
updated: "2001-08-06T19:53:00.000Z"
replies: 0
views: 828
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/38213-convfilesize"
---

# convFileSize

## #1 — Pace, 2001-08-06T19:53Z

En nyttig funktion som konventerar en filstorlek (i byte) till kB, MB och GB. Exempelvis:

3629180 blir 3,4 MB

Man kan givetvis ställa hur många decimaler man vill ha. Väljer man exempelvis 4 st, blir det ju:

3,4610 MB

Originalproggat i basic av Pace.

Fel kan diskuteras [här](http://cgi.webforum.nu/wf/Forum11/HTML/005641.html)

```
filstorlek = 3629180

Response.Write convFileSize(filstorlek, 1)

'********************************************************************
' ConvFileSize: Konventerar filstorlek (i byte) till kB, MB och GB.
'********************************************************************
Function ConvFileSize (FileSize, Decimaler)
	Dim DotPos, strFileSize
	FileSize = cDbl(FileSize)

	' Gigabytes.
	If FileSize >= 1048576000 Then
		strFileSize = cStr(cSng(FileSize / 1048576000))
		DotPos = Instr(strFileSize, ",")
		IF DotPos THEN
			IF Decimaler = 0 THEN Decimaler = -1
			strFileSize = MID(strFileSize, 1, DotPos + Decimaler)
		END IF
		strFileSize = strFileSize + " GB"
	' Megabytes.
	ElseIf FileSize >= 1048576 THEN
		strFileSize = cStr(cSng(FileSize / 1048576))
		DotPos = Instr(strFileSize, ",")
		IF DotPos THEN
			IF Decimaler = 0 THEN Decimaler = -1
			strFileSize = MID(strFileSize, 1, DotPos + Decimaler)
		END IF
		strFileSize = strFileSize + " MB"
	' Kilboytes.
	ElseIf FileSize >= 1024 THEN
		strFileSize = cStr(cSng(FileSize / 1024))
		DotPos = InStr(strFileSize, ",")
		IF DotPos THEN
			IF Decimaler = 0 THEN Decimaler = -1
			strFileSize = MID(strFileSize, 1, DotPos + Decimaler)
		END IF
		strFileSize = strFileSize + " kB"
	' Bytes.
	Else
		IF FileSize > 1 THEN
			strFileSize = cStr(Int(FileSize)) + " bytes"
		ELSE
			strFileSize = cStr(Int(FileSize)) + " byte"
		END IF
	END IF
	
	ConvFileSize = Trim(strFileSize)

End Function
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38213-convfilesize