计算aa.txt大小

Question

我想计算aa.txt大小???
我用以下语句把aa.txt文件里的数据读出到aaa变量里面,再计算aa的大小,
可不能正确计算,求教:
Dim aa As String
Open App.Path & "\aa.TXT" For Input As #1Input #1, aaClose #1

Answer 1

在不打开文件的情况下用FileLen函数.

Answer 2

FileLen '文件未打开
'or
LOF '文件已打开

Answer 3

VB6 提供了一个新的物件模型，叫做 FSO (File System Object) 物件模型，运用它，我们可以很方便的处理磁盘、资料夹和文件的一些动作。FSO 物件模型含有好几个物件，其中有一个 File 物件是用来求得文件的相关资讯，在目前这个主题，我们就可以使用 File 物件！它有一个属性是 Size，对文件来说就是指文件的大小 (单位为位元组)。 (注一)虽然使用 File 物件的 Size 属性就可以求得文件的大小，但是它有以下二个缺点：
1、只能用于 VB6 以后的版本。
2、它不是 VB6 内定的功能，必须另外引用 Scrrun.dll (Microsoft Scripting Runtime) 才可以！以下的二个方法就可以使用在所有的 VB 版本中 (含 VB6)，而且是 VB 内定的功能：1、FileLen 函数：返回一个 Long，代表一个文件的长度，单位是位元组。语法：FileLen(pathname) ' pathname 是全路径之文件名称
适用：取得一个尚未开启的文件的长度大小 (注二)2、LOF 函数：返回一个 Long ，单位为位元组，用来代表由 Open 陈述式所开启的文件之大小。语法：LOF(filenumber) ' filenumber 是一个文件代码
适用：取得一个已开启的文件的长度大小注一：File 物件的 Size 属性除了可以求得一个文件的大小，也可以用来取得整个目录的所有文件大小！注二：使用 FileLen 函数时，如果所指定的文件正在开启中，则所返回的值是这个文件在开启前的大小。