bytes to whatever
March 23, 2009 by admin
Filed under Visual Basic
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
Related posts:
- convert to binary Public Function CBin(ByVal Nr As Long, Optional Precision As Integer...
- Screen capture Screen capture using Visual Basic Private Declare Sub keybd_event Lib...
- Retrieves the path your application is running from. Private Sub Form_Load() MsgBox App.Path End Sub Bookmark It Hide...
- Get screen resolution with Visual Basic This Visual Basic example will find out your current screen...
Related posts brought to you by Yet Another Related Posts Plugin.






















