---
title: "FSO problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/87625-fso-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Melea"
published: "2003-10-04T15:11:11.000Z"
updated: "2003-10-04T16:10:32.000Z"
replies: 3
views: 191
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/87625-fso-problem"
---

# FSO problem

## #1 — Melea, 2003-10-04T15:11Z

Hejsan!

Håller på att bygga ett ganska onödigt men skoj system i FSO.

För det första visar den hur mkt utrymme jag har kvar på mina hårdiskar och hur mycket det är sammanlagt, den kollar också filsystem (ntfs, fat32).

Nu har jag också gjort så den listar alla filer i de olika diskarna (c: d: e:).

Man ska också kunna trycka på alla mappar så man kan se undermappar etc.

Nu tar det stopp efter jag har tryckt 1 (!) gång per mapp... blir bara c:\\program\\ sen kan jag inte trycka på någon mer, svårt och förklara :p

Såhär ser iallafall koden ut i dagsläget:

```
<%
drivename1="c:\"
drivename2="d:\"
drivename3="e:\"

Set fso = CreateObject("Scripting.FileSystemObject") 

set maindrive1=fso.GetDrive(drivename1)
set maindrive2=fso.GetDrive(drivename2)
set maindrive3=fso.GetDrive(drivename3)

response.write "<b>" & maindrive1.VolumeName & "</b> - " & round(maindrive1.AvailableSpace / 1024 / 1024,2) & " (" & round(maindrive1.TotalSize / 1024 / 1024,2) & ")" & " mb ledigt - " & maindrive1.FileSystem & "<br>"
response.write "<b>" & maindrive2.VolumeName & "</b> - " & round(maindrive2.AvailableSpace / 1024 / 1024,2) & " (" & round(maindrive2.TotalSize / 1024 / 1024,2) & ")" & " mb ledigt - " & maindrive2.FileSystem & "<br>"
response.write "<b>" & maindrive3.VolumeName & "</b> - " & round(maindrive3.AvailableSpace / 1024 / 1024,2) & " (" & round(maindrive3.TotalSize / 1024 / 1024,2) & ")" & " mb ledigt - " & maindrive3.FileSystem & "<br><br>"
response.write "Alla diskar: - " & round(maindrive1.AvailableSpace / 1024 / 1024 + maindrive2.AvailableSpace / 1024 / 1024 + maindrive3.AvailableSpace / 1024 / 1024,2) & " (" & round(maindrive1.TotalSize / 1024 / 1024 + maindrive2.TotalSize / 1024 / 1024 + maindrive3.TotalSize / 1024 / 1024,2)  & ")" & "  mb ledigt<br><br>"

set mainfolder1=fso.GetFolder(drivename1)
set mainfolder2=fso.GetFolder(drivename2)
set mainfolder3=fso.GetFolder(drivename3)

Set foldercollection1 = mainfolder1.SubFolders
Set foldercollection2 = mainfolder2.SubFolders
Set foldercollection3 = mainfolder3.SubFolders

If Request.Querystring("show") = "" then

response.write "<b>" & maindrive1.volumename & "</b><br>"
For Each folder In foldercollection1
      Response.Write "<a href=""index.asp?show=" & drivename1 & folder.Name & """>" & folder.Name & "</a><br>"
Next
response.write "<br>"

response.write "<b>" & maindrive2.volumename & "</b><br>"
For Each folder In foldercollection2
      Response.Write "<a href=""index.asp?show=" & drivename2 & folder.Name & """>" & folder.Name & "</a><br>"
Next
response.write "<br>"

response.write "<b>" & maindrive3.volumename & "</b><br>"
For Each folder In foldercollection3
      Response.Write "<a href=""index.asp?show=" & drivename3 & folder.Name & """>" & folder.Name & "</a><br>"
Next
response.write "<br>"

elseIf Request.Querystring("show") <> "" then

For Each folder In fso.GetFolder(Request.Querystring("show")).SubFolders
      Response.Write "<a href=""index.asp?show=" & Request.Querystring("show") & "&folder=" & folder.Name & """>" & folder.Name & "</a><br>"
Next

End If

%>
```

Hoppas någon förstår vad jag menar och kan förklara vad jag måste göra. Kanske t.om. förenkla koden :)

Tack på förhand

Mvh

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

## #2 — Sebbe, 2003-10-04T16:06Z

Funkar det kanske om du ändrar den sista delen till det här?

```
elseIf Request.Querystring("show") <> "" then

For Each folder In fso.GetFolder(Request.Querystring("show")).SubFolders
      Response.Write "<a href=""index.asp?show=" & Request.Querystring("show") & "/" & folder.Name & """>" & folder.Name & "</a><br>"
Next

End If
```

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

## #3 — Melea, 2003-10-04T16:07Z

Lysnade! :e
Att man inte tänkte på det :OO

Tack för hjälpen

Mvh

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

## #4 — Sebbe, 2003-10-04T16:10Z

> **Melea skrev:**
>
> Lysnade! :e
> Att man inte tänkte på det :OO
> 
> Tack för hjälpen
> 
> Mvh

Ja, att man inte gjorde det... ;)
Varsågod! :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/87625-fso-problem