Vb6 如何在菜单中显示visual basic 6中最近使用的文件

我有一个vb6程序，我想在菜单中查看最近打开的文件。我不知道怎么做，请有人帮忙，我会提供代码：

Option Explicit

Dim Dates(1000) As Date
Dim Weights(1000) As String
Dim NumWts As Integer

Sub Init()
  NumWts = 1: vsbControl.Value = 1: vsbControl.Max = 1
  Dates(1) = Format(Now, "mm/dd/yy")
  Weights(1) = ""
  lblDate.Caption = Dates(1)
  txtWeight.Text = Weights(1)
  lblFile.Caption = "New File"
End Sub

Private Sub Form_Load()
  frmWeight.Show
  Call Init
End Sub

Private Sub mnuFileExit_Click()
  'Make sure user really wants to exit
  Dim Response As Integer
  Response = MsgBox("Are you sure you want to exit the Weight Program?", _
  vbYesNo + vbCritical + vbDefaultButton2, "Exit Editor")
  If Response = vbNo Then
    Exit Sub
  Else
    End
  End If
End Sub

Private Sub mnuFileNew_Click()
  'User wants new file
  Dim Response As Integer
  Response = MsgBox("Are you sure you want to start a new file?", _
  vbYesNo + vbQuestion, "New File")
  If Response = vbNo Then
    Exit Sub
  Else
    Call Init
  End If
End Sub

Private Sub mnuFileOpen_Click()
  Dim I As Integer
  Dim Today As Date
  Dim Response As Integer
  Response = MsgBox("Are you sure you want to open a new file?", _
  vbYesNo + vbQuestion, "New File")
  If Response = vbNo Then Exit Sub
  cdlFiles.Filter = "Files (.wgt)|.wgt"
  cdlFiles.DefaultExt = "wgt"
  cdlFiles.DialogTitle = "Open File"
  cdlFiles.Flags = cdlOFNFileMustExist + cdlOFNPathMustExist
  On Error GoTo No_Open
  cdlFiles.ShowOpen
  Open cdlFiles.FileName For Input As #1
    lblFile.Caption = cdlFiles.FileName
    Input #1, NumWts
    For I = 1 To NumWts
      Input #1, Dates(I), Weights(I)
    Next I
  Close 1
  Today = Format(Now, "mm/dd/yy")
  If Today <> Dates(NumWts) Then
    NumWts = NumWts + 1
    Dates(NumWts) = Today
    Weights(NumWts) = ""
  End If
  vsbControl.Max = NumWts
  vsbControl.Value = NumWts
  lblDate.Caption = Dates(NumWts)
  txtWeight.Text = Weights(NumWts)
  Exit Sub
No_Open:
  Resume ExitLine
ExitLine:
  Exit Sub
End Sub

Private Sub mnuFileSave_Click()
  Dim I As Integer
  cdlFiles.Filter = "Files (.wgt)|.wgt"
  cdlFiles.DefaultExt = "wgt"
  cdlFiles.DialogTitle = "Save File"
  cdlFiles.Flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist
  On Error GoTo No_Save
  cdlFiles.ShowSave
  Open cdlFiles.FileName For Output As #1
    lblFile.Caption = cdlFiles.FileName
    Write #1, NumWts
    For I = 1 To NumWts
      Write #1, Dates(I), Weights(I)
    Next I
  Close 1
  Exit Sub
No_Save:
  Resume ExitLine
ExitLine:
  Exit Sub
End Sub

Private Sub txtWeight_Change()
  Weights(vsbControl.Value) = txtWeight.Text
End Sub

Private Sub txtWeight_KeyPress(KeyAscii As Integer)
  If KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Then
    Exit Sub
  Else
    KeyAscii = 0
  End If
End Sub

Private Sub vsbControl_Change()
  lblDate.Caption = Dates(vsbControl.Value)
  txtWeight.Text = Weights(vsbControl.Value)
  txtWeight.SetFocus
End Sub

选项显式
暗日期（1000）作为日期
将砝码（1000）调整为字符串
作为整数的Dim NumWts
子初始化（）
NumWts=1:vsbControl.Value=1:vsbControl.Max=1
日期（1）=格式（现在为“mm/dd/yy”）
权重（1）=“”
lblDate.Caption=日期（1）
Text=Weights（1）
lblFile.Caption=“新建文件”
端接头
专用子表单_加载（）
重量，显示
调用初始化
端接头
私有子mnuFileExit_Click（）
'确保用户确实想退出
作为整数的Dim响应
Response=MsgBox（“您确定要退出称重程序吗？”_
vbYesNo+vbCritical+vbDefaultButton2，“退出编辑器”）
如果响应=vbNo，则
出口接头
其他的
终点
如果结束
端接头
私有子mnuFileNew_单击（）
'用户需要新文件
作为整数的Dim响应
Response=MsgBox（“您确定要启动新文件吗？”_
vbYesNo+vbQuestion，“新文件”）
如果响应=vbNo，则
出口接头
其他的
调用初始化
如果结束
端接头
私有子mnuFileOpen_Click（）
作为整数的Dim I
今天黯淡如白昼
作为整数的Dim响应
Response=MsgBox（“您确定要打开新文件吗？”_
vbYesNo+vbQuestion，“新文件”）
如果响应=vbNo，则退出Sub
cdlFiles.Filter=“文件（.wgt）|.wgt”
cdlFiles.DefaultExt=“wgt”
cdlFiles.DialogTitle=“打开文件”
cdlFiles.Flags=cdlofnffilemustexist+cdlofnpath mustexist
错误转到No_Open
cdlFiles.ShowOpen
打开cdlFiles.FileName作为#1输入
lblFile.Caption=cdlFiles.FileName
输入#1，NumWts
对于I=1到NumWts
输入#1、日期（I）、权重（I）
接下来我
关闭1
今天=格式（现在为“mm/dd/yy”）
如果今天的日期（NumWts），那么
NumWts=NumWts+1
日期（NumWts）=今天
重量（单位重量）=“”
如果结束
vsbControl.Max=NumWts
vsbControl.Value=NumWts
lblDate.Caption=日期（NumWts）
Text=权重（NumWts）
出口接头
没有打开：
恢复出口线
出口线：
出口接头
端接头
私有子文件mnuFileSave_Click（）
作为整数的Dim I
cdlFiles.Filter=“文件（.wgt）|.wgt”
cdlFiles.DefaultExt=“wgt”
cdlFiles.DialogTitle=“保存文件”
cdlFiles.Flags=cdlOFNOverwritePrompt+cdlOFNPathMustExist
错误时转到No_Save
cdlFiles.ShowSave
打开cdlFiles.FileName，输出为#1
lblFile.Caption=cdlFiles.FileName
写#1，NumWts
对于I=1到NumWts
写#1、日期（I）、权重（I）
接下来我
关闭1
出口接头
不保存：
恢复出口线
出口线：
出口接头
端接头
私有子txtWeight_Change（）
权重（vsbControl.Value）=txtweeght.Text
端接头
专用子txtWeight_按键（KEYSCII为整数）
如果文件菜单中的keyscii>=vbKey0和keyscii，则将文件名保存到数据库、寄存器、xml文件、纯文本文件或其他任何文件中

如果要显示最近打开的文件，请使用以前保存的文件名读取