Feedback

VB - Ordergröße rekursiv bestimmen

Veröffentlicht von am 15.06.2007
(0 Bewertungen)
Ordergröße bestimmen mit allen Dateien in allen Unterverzeichnisen
GFU-Schulungen  [Anzeige]

C# Aufbaukurs

Sie haben grundlegende .NET- und C#-Kenntnisse und und wollen diese nun erweitern. Der Aufbaukurs C# führt Sie ein die Arbeit mit Interfaces und Delegates, Generics und Parallel Computing.

Angular mit ASP.NET Core für .NET-Entwickler

.NET ist Ihnen vertraut, als Entwickler verfügen Sie über einschlägige Kenntnisse. In diesem Kurs lernen Sie nun, Angular in .NET-Umgebungen einzusetzen. Sie verstehen das Konzept von Angular und integrieren das clientseitige JS-Framework sicher in.NET-Anwendungen.

'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!