Using kbytes instead of bytes

[Shellshocked]

I want to see what the size of files are on my computer from my program, but I can only show what the size is in bytes. What i would want is to see the size of files in kbytes. Can anyone who knows tell me that?

Thanx

Multiply the KB by 1000 to get the bytes.

[Sam Finch]

1024 i thought.

[Mongo]

*smirk* And, ahem, dividing by 1024 may get even closer.

{I read it backwards the first time too. That's why I was smirking. Please, No disrespect intended!!! We're all human.}

[Edited by Mongo on 05-31-2000 at 09:44 PM]

Convert bytes to K or MB:

Dim FileSize1 As String
Dim FileSize2 As String

'Code:
Private Function FileSize()
    ' 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



Private Sub FileSize(ffile)
    ' convert the current file size to different format
    FileSize1 = FileLen(ffile)
    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: " & ffile & vbCrLf & "Old Size: "; FileSize1 & _
          vbCrLf & "New Size: " & FileSize2
    Me.Caption = ffile & " - Size: " & FileSize2
End Sub

I must have read it wrong (seriously). I thought he wanted to convert KB into Bytes.