'读取文件 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字
上传中....