filelenghtmdl.bas

来自「比WinZip速度快很多的SINE256加密算法模块。支持指定密钥」· BAS 代码 · 共 42 行

Attribute VB_Name = "FileLenghtMdl"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/03/15
'描    述：SINE256加密可视化以及控制示例
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'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