//**************************************
    //     
    // Name: Get the size of a file and conv
    //     ert to user-friendly string format
    // Description:Normally when you get the
    //     size of a file, the size will be returne
    //     d in bytes. For large files this is quit
    //     e user-unfriendly to read. E.g. a file s
    //     ize of 17972672 bytes will not really gi
    //     ve good information to the user. Simply 
    //     use this function anywhere in your code 
    //     to convert the size in bytes to kilobyte
    //     s, megabytes or gigabytes automatically.
    //     
    // By: John Willemse
    //
    // Inputs:Pass the fully qualified filen
    //     ame and path to the function in a string
    //     .
    //
    // Returns:The function returns the size
    //     of the file in a string, e.g. '12,5 MB' 
    //     or '13,4 KB', the suffix depending on th
    //     e size of the file.
    //
    // Assumes:The following code contains t
    //     he function 'GetFileSize' and a subrouti
    //     ne calling the function as an example. T
    //     he function assumes the file is an exist
    //     ing file. You can of course build in som
    //     e code to verify this.
    Put the code in the class of a form with a button called btnBrowse and a FileOpenDialog called dlgOpen and run the code to try this.
    //
    //This code is copyrighted and has    // limited warranties.Please see http://
    //     www.Planet-Source-Code.com/vb/scripts/Sh
    //     owCode.asp?txtCodeId=1796&lngWId;=10    //for details.    //**************************************
    //     
    
    Private Function GetFileSize(byVal FileName As String) As String
    Dim myFileDetails As New System.IO.FileInfo(FileName)
    Dim realFileSize As Double
    Dim fileSuffix As String = " B"
    realFileSize = myFileDetails.Length
    If realFileSize / 1024 > 1 Then
    realFileSize /= 1024
    fileSuffix = " KB"
    If realFileSize / 1024 > 1 Then
    realFileSize /= 1024
    fileSuffix = " MB"
    If realFileSize / 1024 > 1 Then
    realFileSize /= 1024
    fileSuffix = " GB"
    End If
    End If
    End If
    GetFileSize = Format(realFileSize,"###0.0") & fileSuffix
    Return GetFileSize
    End Function
    Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
    'This example uses a FileOpen Dialog named dlgOpen
    Dim FS As String
    'FS will hold the user-friendly filesize
    dlgOpen.ShowDialog()
    FS = GetFileSize(dlgOpen.Filename)
    MsgBox("The filesize is: " & FS)
    End Sub