• Home
 · 
• Files/File Controls/Input/Output
 · 
• Convert Bytes into K or MB

Convert Bytes into K or MB

Convert Bytes into K or MB

API Declarations


Dim FileSize2 As String



Rate Convert Bytes into K or MB

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    ' convert the current file size to different format
    Static xx
    FileSize1 = FileLen(File1.Path & "\" & File1.List(0))
    xx = FileSize1 / 1024
    If Len(FileSize1) >= 7 Then
        FileSize2 = Format((xx / 1024), "0.00")
        FileSize2 = FileSize2 & " MB"
    ElseIf Len(FileSize1) >= 4 Then
        xx = Format((FileSize1 / 1024), "0.00")
        FileSize2 = xx & " K"
    Else
        FileSize2 = FileSize1 & " Bytes"
    End If
    Debug.Print "File: " & File1.List(0) & vbCrLf & "Old Size: "; FileSize1 & _
          vbCrLf & "New Size: " & FileSize2
    Me.Caption = File1.List(0) & " - Size: " & FileSize2
End Function