VB中如何用文本格式文件控制程序中List的条目？

VB生成EXE文件，文件同目录有List1.txt的文件（不是TXT也可以，能打开编辑就可以了）这个文件控制EXE文件中LIST下拉内容。。。请求怎么弄？

当你程序运行后修改了 list1.txt 文件的内容后，点击下按钮就可以同步！

或则你可以加一个计时器，实时同步！

Private Sub Command1_Click()
List1.Clear
Call ReadFile(List1, App.Path & "\list1.txt")
End Sub

'这个过程用于读取文件
Private Sub ReadFile(ListName As ListBox, FileName As String)
On Error Resume Next
Dim ListText As String
Dim FileNumber As Integer

'分配空闲的文件号
FileNumber = FreeFile
'读取文件
Open FileName For Input As #FileNumber
Do Until EOF(FileNumber)
Line Input #FileNumber, ListText
ListName.AddItem ListText
Loop

Close #FileNumber '释放文件号
End Sub

Private Sub Command1_Click() Dim H() As String, L() As String, i As Integer, j As Integer Dim SaveFile As String Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Add '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见） Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表 '下面进行文本导入 H = Split(Text1.Text, vbNewLine) For i = 0 To UBound(H) L = Split(H(i), ",") For j = 0 To UBound(L) xlSheet.Cells(i + 1, j + 1) = L(j) '给单元格（row,col）赋值 Next Next SaveFile = "c:\1.xls" '你可以在此修改保存的文件名称 If Dir(SaveFile) <> "" Then Kill SaveFile xlBook.SaveAs FileName:=SaveFile '保存工作表,结束时一定别忘了保存 xlBook.Close (True) '关闭工作簿 这里的True表示退出时保存修改 xlApp.Quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象 MsgBox "文件已成功导出到" & SaveFile End Sub