文件操作问题

Question

用什么函数获取文件的长度(字节数)?
函数格式是什么样的? 谢谢

Answer 1

FileLen 函数
      返回一个 Long，代表一个文件的长度，单位是字节。语法FileLen(pathname)必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。

Answer 2

hot1kang1(许仙) 
抢分抢疯了，呜呜呜呜……

Answer 3

有两个函数
FileLen("文件路径")
LOF(文件号)文件号是用Open 函数设定的
语法
open "文件路径" for 读写方式 AS #文件号

Answer 4

看看我下面的代码为什么有错
Dim length As Long
Text1.Text = File1.FileName      '反回文件名到text1
 
Text2.Text = CStr(FileLen(Text1.Text) / 1024) + "KB"     '取文件长度
            
为什么有时候显示错误"文件未找到"?

Answer 5

to:busy2005(早出晚归)
Text2.Text = CStr(FileLen(Text1.Text) / 1024) + "KB"     '取文件长度FileLen(文件的路径，非文件名)

Answer 6

Dim length As Long
Text1.Text = File1.Path + File1.FileName      '反回文件名到text1
 
Text2.Text = CStr(FileLen(Text1.Text) / 1024) + "KB"

Answer 7

注意刷新File1
File1.Refresh代码有错,现更正
Dim length As Long
Text1.Text = Replace(File1.Path + "\" + File1.FileName, "\\", "\")
Text2.Text = CStr(FileLen(Text1.Text) / 1024) + "KB"

Answer 8

path这个函数在不同的操作系统上返回值是不一样的，有的返回路径后边没有“\”，例如“D:\vb6mini”；有的有，例如“D:\vb6mini\”。所以极力支持楼上的，用replace函数进行处理！