非常感谢
Dim i As StringList1.Clearopen "d:\aa.txt" for Input as #1Do While Not EOF(#1) Line Input #1,i List1.AddItem iLoopclose #1