I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
Bladerunnet
Bladerunnet
il 29 settembre 2011 alle 14:25
43 messaggi dal 05 gennaio 2011
Qualcuno sa indicarmi una funzione per calcolare quanto occupa l'intero sito calcolando anche tutti file delle varie sotto directory?
ho trovato questo codice ma non so se si ferma solo alla directory indicata:


<%@ Page language="VB"%>
<%@ Import Namespace="System.IO" %>
<HTML>
<script language="VB" runat="server">

Sub Page_Load()
Dim strFolderPath As String = "./Upload"
Dim clsDirectorySize As New DirectorySize
lbDimensioneCartella.Text = "Dimensione cartella: " & _
clsDirectorySize.Size(strFolderPath)
End Sub

Public Class DirectorySize
Inherits System.Web.UI.Page

Public Function Size(ByVal virtualPath As String) As String
If virtualPath = "" Then
virtualPath = "/"
ElseIf virtualPath.EndsWith("/") Then
virtualPath = virtualPath.Substring(0, virtualPath.Length - 1)
End If
Dim physicalPath As String = Server.MapPath(virtualPath)
Dim folderSize As Double = GetFolderSize(physicalPath)
Dim strSize As String = FormatSize(folderSize)
Return strSize
End Function

Private Function GetFolderSize(ByVal physicalPath As String) As Double
Dim dblDirSize As Double = 0
Dim objDirInfo As DirectoryInfo = New DirectoryInfo(physicalPath)
Dim arrChildFiles As Array = objDirInfo.GetFiles()
Dim arrSubFolders As Array = objDirInfo.GetDirectories()
Dim objChildFile As FileInfo
Dim objChildFolder As DirectoryInfo
For Each objChildFile In arrChildFiles
dblDirSize += objChildFile.Length
Next
For Each objChildFolder In arrSubFolders
dblDirSize += GetFolderSize(objChildFolder.FullName)
Next
Return dblDirSize
End Function

Private Function FormatSize(ByVal dblFileSize As Double) As String
If dblFileSize < 1024 Then
Return String.Format("{0:N0} B", dblFileSize)
ElseIf dblFileSize < 1024 * 1024 Then
Return String.Format("{0:N2} KB", dblFileSize / 1024)
ElseIf dblFileSize < 1024 * 1024 * 1024 Then
Return String.Format("{0:N2} MB", dblFileSize / (1024 * 1024))
ElseIf dblFileSize >= 1024 * 1024 * 1024 Then
Return "Dimensione in GB!"
End If
End Function

End Class

</script>
<body>
<asp:Label ID="lbDimensioneCartella" runat="server"></asp:Label>
</body>
</HTML>


grazie
Ciao
RispondiQuoting
Daniele Bochicchio
Daniele Bochicchio
il 29 settembre 2011 alle 16:43
15.593 messaggi dal 31 agosto 1998
Contributi
daniele.aspitalia.com | Blog
Bladerunnet wrote:
Qualcuno sa indicarmi una funzione per calcolare quanto occupa l'intero sito calcolando anche tutti file delle varie sotto directory? ho trovato questo codice ma non so se si ferma solo alla directory indicata:

stando al fatto che fa un ciclo, pare proprio che guardi in tutte le sottodir.
.
Daniele Bochicchio | ASPItalia.com | Libri
Chief Operating Officer@iCubed
Microsoft Regional Director & MVP
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.