生成的文本文件能否按序号自动加下去？

Question

生成的文本文件能否按序号自动加下去？按下列的程序，可以在生成一个文本文件后，会自动加上一个号码，但是当RecoedNum在内存中清空后，则又是从01，02这样开始，从而会将原来的01，02，...覆盖。有什么办法象记事本一样，会自动一直加上去？谢谢！
 Dim YH As String * 1
   
    Dim tmpA As Byte
    Dim tmpB As Byte
    Static RecoedNum As Long
    RecoedNum = RecoedNum + 1
    Dim strFileName As String
    strFileName = "c:\凭证" & Trim(Format(RecoedNum, "00")) & ".txt"

Answer 1

大家帮我看看吧，我只是想他象记事本一样的功能！