|
Visualizza sottodirectory e loro dimensione Tramite questo comodo script č possibile, utilizando il FSO (file system object), mostrare le cartelle presenti sul web-server, la loro dimensione e i files presenti all'intyerno della cartella selezionata.
Per ulteriori informazioni consultate le pagine relative al folderObject ed al fileObject
<%
dim objFSO, objFolder, x, myPath, folderSize
myPath = Server.mappath(".\")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(myPath)
response.write "Struttura della cartella <b>"&myPath&""
' visualizza elenco sottodirectory
For Each x In objFolder.SubFolders
folderSize = Round(x.size/1024/1024, 2)
folderSize = FormatNumber(folderSize, 2)
response.write "Nome Cartella: "&x.Name&"<br>Dimensioni: "& x.Size & "Bytes (" & folderSize & " MB)"
Next
' visualizza elenco files
For Each x In objFolder.files
folderSize = Round(x.size/1024/1024, 2)
folderSize = FormatNumber(folderSize, 2)
response.write "Nome Cartella: "&x.Name&"<br>Dimensioni: "& x.Size & "Bytes (" & folderSize & " MB)"
Next
set fs = Nothing
set fo = Nothing
%> |
|