Function SetBytes(Bytes) As String
On Error GoTo errorhandler
If Bytes >= 1073741824 Then
SetBytes = Format(Bytes / 1024 / 1024 / 1024, “#0.00″) _
& ” GB”
ElseIf Bytes >= 1048576 Then
SetBytes = Format(Bytes / 1024 / 1024, “#0.00″) & ” MB”
ElseIf Bytes >= 1024 Then
SetBytes = Format(Bytes / 1024, “#0.00″) & ” KB”
ElseIf Bytes < 1024 Then
SetBytes = Fix(Bytes) & ” Bytes”
End If
Exit Function
errorhandler:
SetBytes = “cannot compute”
End Function
Private Sub Form_Load()
MsgBox SetBytes(1100)
End Sub
No related posts.
Related posts brought to you by Yet Another Related Posts Plugin.
