Attribute VB_Name = "FileLenghtMdl"
'****************************************************************************
'人人為我，我為人人
'枕善居漢化收藏整理
'發布日期：2007/03/15
'描    述：SINE256加密可視化以及控制示例
'網    站：http://www.Mndsoft.com/  (VB6源碼博客)
'網    站：http://www.VbDnet.com/   (VB.NET源碼博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************
Option Explicit
Public Function LengthOfFile(ByVal Filename As String) As Double
    LengthOfFile = dblUnsigned(FileLen(Filename)) 'Call the FileLen Function and convert it To an unsigned value
End Function
Function lngSigned(ByVal dblUnsigned As Double) As Long
    If dblUnsigned <= &H7FFFFFFF Then
        lngSigned = dblUnsigned
    Else
        lngSigned = CLng(dblUnsigned - BIGNUMBER_32)
    End If
End Function

Public Function GetFileSize(FileLength As Double) As String
    Dim iSizeMB As Double
    On Error GoTo filelenerr
    iSizeMB = Round((FileLength / 1024) / 1024, 2)
    GetFileSize = iSizeMB & "Mb"
    Exit Function
filelenerr:
    GetFileSize = -1
End Function
Function dblUnsigned(ByVal lngSigned As Long) As Double
    If lngSigned >= 0 Then
        dblUnsigned = lngSigned
    Else
        dblUnsigned = BIGNUMBER_32 + lngSigned
    End If
End Function