modsys.bas

这个源代码主要模仿了一个类似 深度操作系统安装程序中的一个软件自动安装管理器AutoIt v3

Attribute VB_Name = "modSys"

Public Enum ISPN_FT_SIZETYPE
    ISPN_FT_SIZEINBYTES
    ISPN_FT_SIZEINMB
    ISPN_FT_SIZEINKB
    ISPN_FT_SIZEAUTO
End Enum


Public Function GetFileSize(sFilename As String, Optional cMeasure As ISPN_FT_SIZETYPE = ISPN_FT_SIZEAUTO) As String
    
    On Error GoTo filelenerr
    '**Returns the file size of a file measu
    '     red in MB, KB, or Bytes**
    iSizeMB = Round((FileLen(sFilename) / 1024) / 1024, 2)
    
    iSizeKB = Round((FileLen(sFilename) / 1024), 3)
    
    iSizeBytes = FileLen(sFilename)
    


    If cMeasure = ISPN_FT_SIZEAUTO Then
        
        'Auto-Determine the right measurement
        If iSizeBytes < 1024 Then cMeasure = ISPN_FT_SIZEINBYTES
        If iSizeBytes >= 1024 Then cMeasure = ISPN_FT_SIZEINKB
        If iSizeBytes >= 1048576 Then cMeasure = ISPN_FT_SIZEINMB
        
    End If
    


    Select Case cMeasure
        
        Case ISPN_FT_SIZEINBYTES
        


        If iSizeBytes > 1 Or iSizeBytes = 0 Then
            GetFileSize = iSizeBytes & " Bytes"
        Else
            GetFileSize = iSizeBytes & " Byte"
        End If
        Case ISPN_FT_SIZEINKB
        GetFileSize = iSizeKB & " KB"
        
        Case ISPN_FT_SIZEINMB
        GetFileSize = iSizeMB & " MB"
        
    End Select
Exit Function

filelenerr:

GetFileSize = -1
End Function