Open App.Path & "\employee.txt" For Input As #3
Do While (Not EOF(3))
Input #3, strEmployeeRead
lstEmployee.AddItem (strEmployeeRead)
Loop
Close #3
我可以用 While 循环替换 DO While (...) 吗?
Open App.Path & "\employee.txt" For Input As #3
Do While (Not EOF(3))
Input #3, strEmployeeRead
lstEmployee.AddItem (strEmployeeRead)
Loop
Close #3
我可以用 While 循环替换 DO While (...) 吗?