FSO problem

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

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