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
Printable View
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.
1024 i thought.
*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:
Code: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.