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]

JavaScript für .NET-Entwickler

Sie sind .NET-Entwickler und nun stehen Sie vor der Aufgabe, JavaScript in Ihre Arbeit einzubinden. Die Schulung vermittelt Ihnen die JavaScript Grundlagen und die Funktionen der Scriptsprache. Sie wissen, wie objektorientierte Programmierung in JavaScript funktioniert und lernen abschließend Best Practicies Fälle kennen.

VB.NET Einführung

Die Schulung zeigt Ihnen, wie Sie einfache, benutzerorientierte Programme, die auf Datenbanken zugreifen, in VB.NET eigenständig entwickeln. 

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