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]

ASP.NET Core - Der Einstieg

In nur 3 Tagen lernen Sie, wie man mit ASP.NET Core und den Technologien MVC, Entity Framework, WebAPI und Razor professionelle Web-Anwendungs-Architekturen aufbaut. Diese Schulung ist der perfekte Einstieg, um datengetriebene und präsentations-orientierte Applikationen auf Basis der ASP.NET Core Plattform zu erstellen.

VB.NET 2017/2015/2013 Aufbau

Nach dieser Schulung können Sie mittels objektorientierter Modelle in VB.NET 2017/2015/2013 wiederverwendbare Elemente eigenständig erstellen.

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