19-08-2013, 13:33
Boas,
Estou com dificuldades em colocar o seguinte código a ler ficheiros sem extensao, se colocar "D:\DATA.txt"
o código em baixo funciona, se colocar sem extensao não funciona.
Estou com dificuldades em colocar o seguinte código a ler ficheiros sem extensao, se colocar "D:\DATA.txt"
o código em baixo funciona, se colocar sem extensao não funciona.
Código:
// Dim FILE_NAME As String = "D:\DATA"
Dim TextLine As String = ""
If System.IO.File.Exists(FILE_NAME) = True Then
Dim objReader As New System.IO.StreamReader(FILE_NAME)
Do While objReader.Peek() <> -1
TextLine = TextLine & objReader.ReadLine() & vbNewLine
Loop
Dim palavras As String() = TextLine.Split(" ")
If palavras.Length > 6 Then
TextBox1.Text = palavras(5).Replace("N", "").Replace("", "")
TextBox2.Text = palavras(7).Replace("N", "").Replace("", "")
End If
Else
MsgBox("File Does Not Exist")
End If