开发手记（九）――在文件菜单中记录最近使用过的文件

的“文件”菜单最下面列出了最近使用过的文件名及路径，文件名及路径会随着用户的使用不断地发生变化，这符合统计学中“最近使用”最大可能是“经常使用”的原则，方便了用户，提高了效率。它的实现方法有很多，我举一例，供大家参考。
一、在工作目录下创建一个LastFile.ini文件，其中第一行为历史文件的总数，以下行是历史文件的全路径。当然您也可以使用数据表存储，那样编程时也许更方便一些。
LastFile.ini文件内容如：4
"D:程序实例slzjslzj源代码2004.11.18水利造价示例.mdb"
"C:WINDOWSDesktop111111.mdb"
"D:程序实例slzjslzj源代码2004.11.18水利造价示例.mdb"
"D:程序实例slzjslzj源代码2004.11.32004.11.32004.11.32004.11.3示例(审查).mdb"
二、在Form_Load中编写如下代码，达到在文件菜单中显示历史文件的效果
'**************显示以往打开的文件记录***************************
'对配置文件不存在的情况下，作出操作。
If Dir(App.Path & "lastfile.ini") = "" Then
Open App.Path & "lastfile.ini" For Output As #1
Write #1, 0
Close #1
End If
'打开lastfile.ini文件
Open App.Path & "lastfile.ini" For Input As #1
Dim strLastfile2 As String
'获取历史文件的数目
Line Input #1, strLastfile2
iMaxLastfile = Int(strLastfile2)