Feedback

VB - Ordergröße rekursiv bestimmen

Veröffentlicht von am 15.06.2007
(0 Bewertungen)
Ordergröße bestimmen mit allen Dateien in allen Unterverzeichnisen
'Imports System.IO

Function GetFolderSize(ByVal DirPath As String, _
   Optional IncludeSubFolders as Boolean = True) As Long

  Dim lngDirSize As Long
  Dim objFileInfo As FileInfo
  Dim objDir As DirectoryInfo = New DirectoryInfo(DirPath)
  Dim objSubFolder As DirectoryInfo

Try
 
  For Each objFileInfo In objDir.GetFiles()
    lngDirSize += objFileInfo.Length
  Next

If IncludeSubFolders then
  For Each objSubFolder In objDir.GetDirectories()
    lngDirSize += GetFolderSize(objSubFolder.FullName)
  Next
End if

Catch Ex As Exception
 

End Try

   Return lngDirSize
End Function

Abgelegt unter Ordner, rekursiv.

2 Kommentare zum Snippet

Tim Hartwig schrieb am 15.06.2007:
Es heißt Ordner nich Order und diese Funktion gibts schon
Jan Welker schrieb am 15.06.2007:
Ich habe den Fehler korrigiert. Stimmt einen ähnlichen Snippet gibt es schon.
 

Logge dich ein, um hier zu kommentieren!