VB检测TXT文件长度是否变化

要写到的语句是这样的:
  if (桌面上的txt文件长度发生变化) then
  (读取txt文件的最后一行)
哪位大哥指点下。 --------------------编程问答-------------------- 定义一个模块变量
dim PrevLen as long

某过程或函数中
open .....as #1
L=lof(1)

if L<>PrevLen then
 读取最后一行
 PrevLen=L
end if --------------------编程问答-------------------- hook writefile --------------------编程问答-------------------- 用filelen(f)可以检测文件长度
用line input 一行一行读取文件，直到最后一行 --------------------编程问答--------------------

引用 1 楼 worldy 的回复:

定义一个模块变量
dim PrevLen as long

某过程或函数中
open .....as #1
L=lof(1)

if L<>PrevLen then
 读取最后一行
 PrevLen=L
end if

谢谢，那怎么读取文件最后一行呢？ --------------------编程问答-------------------- 楼主，你的上一个贴子，不是给了你读文本文件最后一行的方法了吗？
难道那个函数都不会用？
--------------------编程问答-------------------- 刚才看到你的留言，才知道是有这个问题。


那个代码中，没有进行异常处理，当被读取的文件是空文件时（长度为0），会出错。
你可以在那里面增加异常处理的代码，或者检测文件长度为0时，不能去调用那个函数。
--------------------编程问答-------------------- 如果不以 Random 打开文件，则 Seek 设置下一个操作发生的位置。假设 TESTFILE 文件内含有文本数据。

Dim MaxSize, NextChar, MyChar

Open "TESTFILE" For Input As #1   ' 打开输入文件。

MaxSize = LOF(1)   ' 取得文件的总字符数。

' 用循环读入所有记录，但是从最后的记录开始往前读。

For NextChar = MaxSize To 1 Step -1   

   Seek #1, NextChar   ' 设置读写位置。

   MyChar = Input(1, #1)   ' 读入一字符。

Next NextChar

Close #1   ' 关闭文件。

--------------------编程问答-------------------- 长度有变化则从上次记住的长度处开始读。

补充：VB ,  基础类