Dim s As String
Dim v, i
s = String(FileLen("文件路径"), " ")
Open "文件路径" For Binary As 1
Get #1, , s
Close 1
v = Split(s, vbCrLf)
然后,把v(i)给textbox。
Dim v, i
s = String(FileLen("文件路径"), " ")
Open "文件路径" For Binary As 1
Get #1, , s
Close 1
v = Split(s, vbCrLf)
然后,把v(i)给textbox。
For i = 0 To UBound(v)
List1.List(i) = v(i)
next