Member Avatar for jackfriendstie

What I want, is for my text file to be read into the array named "CFiles()". Then once this is complete to delete the file

But

I get the error, The process cannot access the file 'C:\Users\Andrew\Desktop\New.txt' because it is being used by another process. On 3rd to last line.

My code is below:

Public Class Form1
Dim File As String = "C:\Users\Andrew\Desktop\New.txt"
Dim CFiles() As String
Dim EndCFiles As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If System.IO.File.Exists(File) = True Then



Dim objReader As New System.IO.StreamReader(File)

Do While objReader.Peek() <> -1
ReDim Preserve CFiles(EndCFiles)
CFiles(EndCFiles) = CFiles(EndCFiles) & objReader.ReadLine()
EndCFiles = EndCFiles + 1
Loop

End If
Kill(File)
End Sub
End Class
Edited by Ezzaral because: Added code tags. Please use them to format any code that you post.
  • 3 Contributors
  • 4 Replies
  • 2K Views
  • 6 Hours Discussion Span
  • Latest Post Latest Post by codeorder
Member Avatar for kingsonprisonic 
If System.IO.File.Exists(File) = True Then



Dim objReader As New System.IO.StreamReader(File)

Do While objReader.Peek() <> -1
ReDim Preserve CFiles(EndCFiles)
CFiles(EndCFiles) = CFiles(EndCFiles) & objReader.ReadLine()
EndCFiles = EndCFiles + 1
Loop

End If
Kill(File)'Here is the mistake

you try to delete a file before closing the file reader.
So first close it.

objReader.Dispose()

Then Kill it

Ok.

Member Avatar for kingsonprisonic

This Thread is SOLVED

Member Avatar for codeorder

See if this helps.

Public Class Form1
    Private myFile As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\New.txt"
    Private arFileContent() As String = Nothing

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If File.Exists(myFile) Then
            arFileContent = File.ReadAllLines(myFile) '// load file lines into Array.
            Kill(myFile) '// delete file.
            MsgBox(arFileContent(0)) '// FOR TESTING, READ LINE 1.
        End If
    End Sub
End Class
Edited by codeorder because: n/a
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.