---
title: "Går detta att genomföra??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/44009-går-detta-att-genomföra"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "medialabs"
published: "2002-05-17T20:07:00.000Z"
updated: "2002-05-18T11:35:34.000Z"
replies: 13
views: 424
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/44009-går-detta-att-genomföra"
---

# Går detta att genomföra??

## #1 — medialabs, 2002-05-17T20:07Z

Om ni går in på: <http://www.tiomeg.com/demo/main.asp?init=1>

Så ser ni en "mätare" som visar status för kontot hur många mb kontot tar upp. Jag har inte lyckats hitta nån sådan. har nån en sådan asp script liggandes på hårddisken så skulle jag vara oerhört tacksam.

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

## #2 — Skarre, 2002-05-17T20:10Z

Jag vet inte om du kan ASP, men det bör väl inte vara så svårt att fixa med FileSystemObject.

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

## #3 — medialabs, 2002-05-17T20:12Z

bort

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

## #4 — juventus1, 2002-05-17T20:24Z

Helt otestat men du kanske får en ide:

```
<%
Function ShowFolderSize(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(filespec)
   s = UCase(f.Name) & " uses " & f.size & " bytes."
   ShowFolderSize = s
End Function

size = ShowFolderSize("din katalog")
usedSpace = (size / tillåtna värdet)
%>
<table>
<tr><td width="<% =usedSpace * 100 %>" bgcolor="#363964">&nbsp;</td></tr></table>
```

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

## #5 — medialabs, 2002-05-17T20:26Z

ok! ska ta och testa den nu..

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

## #6 — medialabs, 2002-05-17T20:28Z

hmm... Fick detta felmeddelande:

Microsoft VBScript compilation error '800a0408' 

Invalid character 

/usage.asp, line 11 

usedSpace = (size / tillåtna värdet)

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

## #7 — medialabs, 2002-05-17T20:30Z

Mitt fel.... Jag gjorde ett litet fel...

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

## #8 — medialabs, 2002-05-17T20:33Z

Nu får jag detta:

Microsoft VBScript runtime error '800a004c' 

Path not found 

/usage.asp, line 5 
\-------------------------

\<%
Function ShowFolderSize(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(filespec)
   s = UCase(f.Name) & " uses " & f.size & " bytes."
   ShowFolderSize = s
End Function

size = ShowFolderSize("temp")
usedSpace = (size / 15)
%\>
\<table\>
\<tr\>\<td width="\<% =usedSpace \* 100 %\>" bgcolor="#363964"\> \</td\>\</tr\>\</table\>

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

## #9 — medialabs, 2002-05-17T21:11Z

^ ^

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

## #10 — PatrikB, 2002-05-17T22:41Z

då har du fel sökväg till katalogen.

Du måste skicka in den fysiska sökvägen till katalogen.

ex.

```
<% 
Function ShowFolderSize(filespec) 
Dim fso, f, s 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.GetFolder(filespec) 
s = UCase(f.Name) & " uses " & f.size & " bytes." 
ShowFolderSize = s 
End Function 

size = ShowFolderSize(Server.MapPath("\")) 
usedSpace = (size / 15) 
%> 
<table> 
<tr><td width="<% =usedSpace * 100 %>" bgcolor="#363964"> </td></tr></table>
```

Server.MapPath("\\") anger sökvägen till wwwroot, dvs sitens rot katalog.

cya,
PatrikB

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

## #11 — medialabs, 2002-05-18T11:11Z

Om nån skulle få detta igång så skulle jag vara oerhört tacksam
\-----------------------------------------
\<% 
Function ShowFolderSize(filespec) 
Dim fso, f, s 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.GetFolder(filespec) 
s = UCase(f.Name) & " uses " & f.size & " bytes." 
ShowFolderSize = s 
End Function 

size = ShowFolderSize(Server.MapPath("webb")) 
usedSpace = (150000) 
%\>
\<html\>

\<head\>
\<title\>t\</title\>
\</head\>

\<body\>

\<table border="0" cellpadding="0" cellspacing="10" width="100%"\>
    \<tr\>
       
\<TBODY\>            \<tr\>
                \<td\>&nbsp;\</td\>
                \<td\>\<font size="1" face="Verdana"\>&nbsp;Ledigt: 15,0
                MB\</font\>\</td\>
                \<td\>&nbsp;\</td\>
            \</tr\>
            \<tr\>
                \<td\>&nbsp;\</td\>
                \<td\>\<table border="0" cellpadding="2"
                cellspacing="1" width="140"\>
\<TBODY\>                    \<tr\>
                        \<td bgcolor="#000000"\>\<table border="0"
                        cellpadding="0" cellspacing="0"
                        width="100%"\>
\<TBODY\>                            \<tr\>
                                \<td width="100%"
                                bgcolor="#FFFFFF"\>\<img
                                src="pix_trans.gif"
                                width="1" height="5"\>\</td\>
                            \</tr\>

\</TBODY\>\</table\>
\</body\>
\</html\>
\--------------------------------------

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

## #12 — @nders, 2002-05-18T11:28Z

Du använder ju inte värdet till någonting.

```
Response.write ShowFolderSize(Server.MapPath("webb"))
```

Mvh,

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

## #13 — medialabs, 2002-05-18T11:33Z

Jag satte in det i koden och fick fram:

WEBB uses 6561525 bytes.

Om ni kollar i denna kod:
\-------------------
\<% 
Function ShowFolderSize(filespec) 
Dim fso, f, s 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.GetFolder(filespec) 
s = UCase(f.Name) & " uses " & f.size & " bytes." 
ShowFolderSize = s 
End Function 

size = ShowFolderSize(Server.MapPath("webb")) 
usedSpace = (150000) 
%\> 
\<html\> 

\<head\> 
\<title\>t\</title\> 
\</head\> 

\<body\> 

\<table border="0" cellpadding="0" cellspacing="10" width="100%"\> 
\<tr\> 

\<TBODY\> \<tr\> 
\<td\> \</td\> 
\<td\>\<font size="1" face="Verdana"\> Ledigt: 15,0 
MB\</font\>\</td\> 
\<td\> \</td\> 
\</tr\> 
\<tr\> 
\<td\> \</td\> 
\<td\>\<table border="0" cellpadding="2" 
cellspacing="1" width="140"\> 
\<TBODY\> \<tr\> 
\<td bgcolor="#000000"\>\<table border="0" 
cellpadding="0" cellspacing="0" 
width="100%"\> 
\<TBODY\> \<tr\> 
\<td width="100%" 
bgcolor="#FFFFFF"\>\<img 
src="pix_trans.gif" 
width="1" height="5"\>\</td\> 
\</tr\> 

\</TBODY\>\</table\> 
\</body\> 
\</html\> 
\---------------
Hur ska jag få den att visa ett sträck i den rutan......

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

## #14 — juventus1, 2002-05-18T11:35Z

```
<% 
Function ShowFolderSize(filespec) 
	Dim fso, f, s 
	Set fso = CreateObject("Scripting.FileSystemObject") 
	Set f = fso.GetFolder(filespec) 
	ShowFolderSize = f.size
End Function 

size = ShowFolderSize(Server.MapPath("../spa"))
usedSpace = Round((size / 15e6), 2)
%>
<html>
	<head>
		<title>t</title>
	</head>
	<body>
		<table border="0" cellpadding="0" cellspacing="0" width="300">
			<tr>
				<td align="left">
					<font size="1" face="Verdana">Ledigt:
						<% =(15 - usedSpace) %>
						MB</font>
				</td>
			</tr>
			<tr>
				<td align="left" bgcolor="#336699" height="5">
					<img src="1black.gif" width="<% =usedSpace * 10 %>" height="30">
				</td>
			</tr>
		</table>
	</body>
</html>
```

Bilagor:

- [1black.gif](https://www.webforum.nu/a/122.gif)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/44009-går-detta-att-genomföra