hej!
använder ett fso-script som listar mappar och filer i en bestämd mapp.
har suttit och försökt ändra lite men får det inte att fungera.
hur gör jag för att visa mapparnas storlek i gb och filer i mb?
koden:
For Each Folder in MyDrive
Typ = "kb"
Size = Folder.size / 1000
Tecken = instr(Size,",") + 1
Size = Left(Size,Tecken)
If Size = "0,0" Then
Size = Folder.size
Typ = "byte"
ElseIf Tecken = 6 then
Typ = "mb"
Size = Folder.size / 1000000
Tecken = instr(Size,",") + 2
Size = Left(Size,Tecken)
End if
Response.Write "<tr><td width='15'><img src='mapp.gif'></td><td>"_
& "<b><font face='Verdana' size='1'>Namn: </b>" & Folder.Name & "<br><b>Storlek:</b> "&_
Size & " " & Typ & "</font></td><td>"& Folder.DateLastModified &"</td></tr>"
Next
For Each objFile in Fgf.Files
Typ = "kb"
Size = objFile.size / 1000
Tecken = instr(Size,",") + 1
Size = Left(Size,Tecken)
If Size = "0,0" Then
Size = objFile.size
Typ = "byte"
ElseIf Tecken = 6 then
Typ = "mb"
Size = objFile.size / 1000000
Tecken = instr(Size,",") + 2
Size = Left(Size,Tecken)
End if
Response.Write ("<tr><td width='15'><img src='fil.gif'></td><td width='20%'>"_
& "<font face='Verdana' size='1'><b>FilNamn:</b> " & objFile.Name & "<br>"_
& " <b>Storlek:</b> " & Size & " " & Typ & "</Font><br></td><td>"& objFile.DateLastModified &"</td></tr>")
Next
MVH/
Niclas
detta verkar säkert simpelt men snälla, hjälp mig!