如何检测一个文件的大小?

Question

如何检测一个文件的大小?

Answer 1

您好！用这语句即可
msgbox FileLen(App.Path & "\book2006.mdb")
其中book2006.mdb改给您要查询文件的名称即可

Answer 2

谢谢!我用了解下面的函数,
但有时会出现溢出错误,不知道是怎么回事?
Function filesize(strFile As String) As Integer
    Dim fso ,f
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set f = Fso.GetFile(strFile)
        filesize = f.Size'在这里出错
        Set Fso = Nothing
        Set f = Nothing
        
    End Function

Answer 3

如果文件不存在会出异常    Function filesize(ByVal strFile As String) As Integer
        Dim fso, f
        fso = CreateObject("Scripting.FileSystemObject")
        If fso.FileExists(strFile) Then '先判断文件是否存在先
            f = fso.GetFile(strFile)
            filesize = f.Size '在这里出错
        Else
            filesize = -1
        End If        fso = Nothing
        f = Nothing
    End Function

Answer 4

Function filesize(ByVal strFile As String) As Integer
估计是这句错了 integer最大值是64K 相信一般的文件都大于这个数字吧
改成long 试试
Function filesize(ByVal strFile As String) As Long

Answer 5

FileLen（） 函数简单，依赖性弱。

Answer 6

ayalicer(小刀惋心) 说的应该是这个问题
我发现文件大了就出错,但改成LONG也不行,不知道为什么?
谢谢各位,能不能再帮忙给看看?

Answer 7

如果大于2G的文件 也不能用long了

Answer 8

FileLen函数 返回索引 返回一个 Long，代表一个文件的长度，单位是字节。语法FileLen(路径)必要的 [路径] 参数是用来指定一个文件名的字符串表达式。[路径]可以包含目录或文件夹、以及驱动器。说明当调用 FileLen 函数时，如果所指定的文件已经打开，则返回的值是这个文件在打开前的大小。注意 若要取得一个打开文件的长度大小，使用 LOF 函数。