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