生成的文本文件能否加上序号？

Question

生成的文本文件能否加上序号？我现在在做一个生成文本文件的程序，
    Dim tmpA As Byte
    Dim tmpB As Byte
    Dim j As Integer
    Open "c:\record.txt" For Binary As #1
    Put #1, , "填制凭证,V800"
我想能不能在record后面生成一个序列号，就是record01，record02，...，有没有办法啊？另外我上面是用了一个Put,我在查阅资料时看到有一些书上是print，二句语句有什么区别吗？谢谢！

Answer 1

Dim tmpA As Byte
    Dim tmpB As Byte
    Dim j As Integer
    Static RecoedNum As Long
    RecoedNum = RecoedNum + 1
    Dim strFileName As String
    strFileName = "c:\record" & Trim(Format(RecoedNum, "00")) & ".txt"
    Open strFileName For Binary As #1
    Put #1, , "填制凭证,V800"
    Close #1