15. februar 2000 - 15:39Der er
5 kommentarer og 1 løsning
Hvormeget plads optager ens ting?
Når man har arbejdet flere måneder på samme site, lægger nye ting ud i nye biblioteker osv. - kan man lave et ASP-script, som kan køre på en NT, som lister op hvad man har liggende i alt (inkl. underdirs og underdirs til underdirs ...) og hvad det samlet fylder ?
s = 0 Set fso = Server.CreateObject("Scripting.FileSystemObject") Set fo = fso.GetFolder(dir) For Each f in fo.Files s = s + f.Size Next
Set fo = Nothing Set fso = Nothing
filesSize = s End Function
Function folderSize(dir) Dim s, fso, fo, f, subFo
s = filesSize(dir) Set fso = Server.CreateObject("Scripting.FileSystemObject") Set fo = fso.GetFolder(dir) For Each subFo in fo.SubFolders s = s + folderSize(subFo) Next
Total size of <%=rootDir%> and all subdirectories is <%=byteSize%> bytes
</body> </html>
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.