Feedback

VB - Dateigröße als formatierter String

Veröffentlicht von am 31.01.2007
(3 Bewertungen)
Gibt die Größe einer Datei in Bytes, KB, MB oder GB als String zurück.
GFU-Schulungen  [Anzeige]

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.

XML und .NET Überblick

Um auf dem neuesten Wissensstand zu sein, sollten Sie unser aktuelles ASP .NET Komplett Seminar belegen.
Nach dem Seminar kennen Sie die wichtigsten Strömungen in der Software-Technologie

Public Shared Function GetFileSize(ByVal path As String) As String
    Dim myFile As FileInfo
    Dim mySize As Single

    Try
      myFile = New FileInfo(path)

      If Not myFile.Exists Then
        mySize = 0
      Else
        mySize = myFile.Length
      End If

      Select Case mySize
        Case 0 To 1023
          Return mySize & " Bytes"
        Case 1024 To 1048575
          Return Format(mySize / 1024, "###0.00") & " KB"
        Case 1048576 To 1043741824
          Return Format(mySize / 1024 ^ 2, "###0.00") & " MB"
        Case Is > 1043741824
          Return Format(mySize / 1024 ^ 3, "###0.00") & " GB"
      End Select

      Return "0 bytes"

    Catch ex As Exception
      Return "0 bytes"
    End Try
End Function
Abgelegt unter Datei, Dateigröße, bytes.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!