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]

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 2017/2015/2013 Einführung

Das Seminar befähigt Sie zur eigenständigen Entwicklung von anwenderorientierten Programmen in VB.NET, worin auch der Einsatz von Datenbanken enthalten ist.

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!