[VB] 파일 길이 구하기

VB 2016. 6. 1. 21:59

■ 파일 길이 구하기

----------------------------------------------------------------------------------------------------

Public Function GetFileSize(strFileName) As String

 

    Dim strFileLength As String

 

    On Error GoTo ErrorLabel

 

    strFileLength = FileLen(strFileName)

 

 

    If strFileLength >= "1024" Then 'KB

    

        strFileLength = CCur(strFileLength / 1024) & "KB"

        

    Else

    

        If strFileLength >= "1048576" Then 'MB

        

            strFileLength = CCur(strFileLength / (1024 * 1024)) & "KB"

            

        Else

        

            strFileLength = CCur(strFileLength) & "B"

            

        End If

        

    End If

    

    GetFileSize = strFileLength

    

    Exit Function

    

ErrorLabel:

 

    GetFileSize = "0B"

    

    Resume

 

End Function

----------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요