'读取文件
If My.Computer.FileSystem.FileExists(shuju) Then
Dim neirong As Microsoft.VisualBasic.FileIO.TextFieldParser
neirong = My.Computer.FileSystem.OpenTextFieldParser(shuju)
neirong.SetDelimiters(",")
Dim textFields As String() = neirong.ReadFields()
For Each currentField As String In textFields
ListBox1.Items.Add(currentField)
Next
neirong.Close()
Else
MsgBox("文件不存在")
End If
用户登录
还没有账号?立即注册
用户注册
投稿取消
| 文章分类: |
|
还能输入300字
上传中....
1986年7月29号的梦魇