导航

« ewebeditor 不支持png上传windows7 设置动态壁纸  »

vb.net 如何获得文件或文件夹的大小? 分享

VB.NET

有时候我们需要获得某个文件或者文件夹的大小,以下的两个函数在vb.net中相对完美的解决了这个问题,供参考

 

    Public Function GetFolderSize(ByVal DirPath As String, Optional ByVal IncludeSubFolders As Boolean = True) As Long  '获取一个文件夹的大小,可包含子文件夹

        Dim lngDirSize As Long

        Dim objFileInfo As FileInfo

        Dim objDir As DirectoryInfo = New DirectoryInfo(DirPath)

        Dim objSubFolder As DirectoryInfo
        Try
            'add length of each file

            For Each objFileInfo In objDir.GetFiles()

                lngDirSize += objFileInfo.Length
            Next
            'call recursively to get sub folders

            'if you don't want this set optional

            'parameter to false

            If IncludeSubFolders Then

                For Each objSubFolder In objDir.GetDirectories()

                    lngDirSize += GetFolderSize(objSubFolder.FullName)
                Next
            End If
        Catch Ex As Exception
            Ex.ToString()
        End Try
        Return lngDirSize
    End Function


    Public Function GetFileSize(ByVal fileName As String) As Single  '获取指定文件大小
        Dim infoReader As System.IO.FileInfo
        infoReader = My.Computer.FileSystem.GetFileInfo(Application.StartupPath & "\" & fileName & ".mdb")

        Return infoReader.Length
        ' MsgBox("文件大小为: " & infoReader.Length & " bytes.")

    End Function

  • 顶一下





原创文章如转载,请注明:转载自落日故乡

本文链接地址:http://www.spersky.com/post/384.html

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

内容搜索


常用链接

最新评论及回复

Powered By Z-Blog

Copyright spersky All Rights Reserved.Theme Moonlight,Calf modified.