makefilessizeslooknice.bas

不使用WinRAR

Attribute VB_Name = "MakeFilesSizesLookNice"
'****************************************************************************
' ：） 人人为我，我为人人 ：）
'枕善居汉化收藏整理
'发布日期：06/06/28
'描    述：VB解压缩RAR文档
'网    站：http://www.mndsoft.com/
'e-mail  ：[e-mail]   最新的邮箱,如果您有新的好的代码别忘记给枕善居哦
'OICQ    ：88382850
'****************************************************************************
Public Function FilesSize(ByVal TheFilesSize As String) As String
                

                
If TheFilesSize >= 1024# And TheFilesSize < 1048576# Then
        FilesSize = Round(TheFilesSize / 1024#, 2) & " KB"
ElseIf TheFilesSize >= 1048576# And TheFilesSize < 1073741824# Then
        FilesSize = Round(TheFilesSize / 1048576#, 2) & " MB"
ElseIf TheFilesSize >= 10737341824# Then
        FilesSize = Round(TheFilesSize / 10737341824#, 2) & " GB"
Else: FilesSize = TheFilesSize & " Bytes"
End If


End Function