Private Sub Ouvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ouvrir.Click Dim fName As String = "" OpenFileDialog1.InitialDirectory = "c:\temp\" OpenFileDialog1.Filter = "CSV files (*.csv)|*.csv" OpenFileDialog1.FilterIndex = 2 OpenFileDialog1.RestoreDirectory = False If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then fName = OpenFileDialog1.FileName End If Me.TextBox1.Text = fName Dim TextLine As String = "" Dim SplitLine() As String If System.IO.File.Exists(fName) = True Then Dim objReader As New System.IO.StreamReader(fName) Do While objReader.Peek() <> -1 TextLine = objReader.ReadLine() SplitLine = Split(TextLine, ",") Me.DataGridView1.Rows.Add(SplitLine) Loop Else MsgBox("File does not exist") End If End Sub
If System.IO.File.Exists(fName) = True Then Dim objReader As New System.IO.StreamReader(fName) FirstLine = objReader.ReadLine() Do While objReader.Peek() <> -1 TextLine = objReader.ReadLine() SplitLine = Split(TextLine, ",") Me.DataGridView1.Rows.Add(SplitLine) Loop Else MsgBox("File does not exist") End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question