Salut,
J'ai récupérer une fonction en VB.Net qui récupère la taille d'un répertoire et de ses sous répertoires, le problème est que je voudrais l'intégrer dans une page ASPX mais je ne sais pas comment faire, quelqu'un peut t'il m'aider ?
Code :
- Private Function DirSize(ByVal d As DirectoryInfo) As Long
- Dim Size As Long = 0
- ' Add file sizes.
- Dim fis As FileInfo() = d.GetFiles()
- Dim fi As FileInfo
- For Each fi In fis
- Size += fi.Length
- Next fi
- ' Add subdirectory sizes.
- Dim dis As DirectoryInfo() = d.GetDirectories()
- Dim di As DirectoryInfo
- For Each di In dis
- Size += DirSize(di)
- Next di
- Return Size
- End Function 'DirSize
|
J'ai aussi trouvé celle la, je ne sais pas laquelle est la "mieux"...
Code :
- Function FolderSize(ByVal strFolderPath As String) As Decimal
- Dim TopDir As New IO.DirectoryInfo(strFolderPath)
- Dim Dir As IO.DirectoryInfo
- Dim FilesArray As IO.FileSystemInfo()
- Dim DirSize As Decimal
- For Each Dir In TopDir.GetDirectories
- DirSize += FolderSize(Dir.FullName)
- Next Dir
- FilesArray = TopDir.GetFiles
- If FilesArray.Length > 0 Then
- Dim MyFile As IO.FileInfo
- For Each MyFile In FilesArray
- DirSize += MyFile.Length
- Next MyFile
- End If
- FolderSize = DirSize
- End Function
|

Message édité par Webman le 08-02-2004 à 15:29:46