Public Shared Function FileSize(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