同題目!
例如我在VB內打開一個文件,在TEXT內可以顯示該文件的大小。

解决方案 »

  1.   

    Public Function GetFilesize(ByVal strFilePath As String) As Long
    On Error GoTo ErrHandle:
        Dim fso as Object,myFile as Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set myFile = fso.GetFile(strFilePath)
        GetFilesize = myFile.Size
        Exit Function
    ErrHandle:
        GetFilesize = 0
    End Function
      

  2.   

    Dim lngLenOfFile as long
    Open "filename" for Input as #1
    lngLenOfFile = LOF(1)
    Close #1
      

  3.   

    len()函数
    比如:msgbox len(text1.text)
      

  4.   

    FSO,全稱是File System Object。
    在MSDN中搜索一下吧。
      

  5.   

    这么简单的问题,竟然还要用api,fso?
      

  6.   

    function getfilelength(filepath as string) as long
     if filepath<>"" then
        open filepath for binary as #1
          getfilelength=lof(1)
        close(1)
     end if
    end function
      

  7.   

    文件系统空间,fso
    有可以看文件大小等的功能
    而且功能很多的啊