DirectoryInfo / FileInfo not closing

[bminaeff]

Hey all,

I have a form that looks at a folder and takes text files in and parses them. The parse is simple. On the form load I have to make sure the folder is empty and take any files that might be in there. I then move them to an archive directory. However, I get an error when I try to move the file. My error is "The process cannot access the file because it is being used by another process." Why is this not closing properly?

Imports System.IO
Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim mypath As String = "C:\Sort1OrderData\"
        Dim outpath As String = "C:\Sort1OrderArchive\"
        Dim myinput, barcode, carrier As String
        Dim location As Integer
        Dim Dir As System.IO.DirectoryInfo = New DirectoryInfo(mypath)
        For Each fi As FileInfo In Dir.GetFiles()
            myinput = fi.OpenText.ReadLine
            If myinput.Length > 1 Then
                location = InStr(myinput, "|")
                barcode = Mid(myinput, 1, location - 1)
                carrier = Mid(myinput, location + 1)
                ListBox1.Items.Add(barcode) 
                ListBox2.Items.Add(carrier) 
            End If
            fi.OpenText.Close()
            fi.MoveTo(outpath & fi.Name) ' [b]ERROR HERE[/b]
        Next
    End Sub
End Class

 

[bminaeff]

Nevermind. I got it. If anyone is interested here is what I did, otherwise mods can you delete this post?

Imports System.IO
Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim mypath As String = "C:\Sort1OrderData\"
        Dim outpath As String = "C:\Sort1OrderArchive\"
        Dim myinput, barcode, carrier As String
        Dim location As Integer
        Dim Dir As System.IO.DirectoryInfo = New DirectoryInfo(mypath)
        For Each fi As FileInfo In Dir.GetFiles()
            Dim sr As StreamReader = fi.OpenText
            'myinput = fi.OpenText.ReadLine
            myinput = sr.ReadLine
            If myinput.Length > 1 Then
                location = InStr(myinput, "|")
                barcode = Mid(myinput, 1, location - 1)
                carrier = Mid(myinput, location + 1)
                ListBox1.Items.Add(barcode) ' TO BE EXCHANGED WITH INSERT TO SQL
                ListBox2.Items.Add(carrier) ' TO BE EXCHANGED WITH INTERT TO SQL
            End If
            sr.Close()
            fi.MoveTo(outpath & fi.Name)
        Next
    End Sub
End Class

 

[DarkConsultant]

Try this,

Imports System.IO
Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim MyFiles() As String = Directory.GetFiles("C:\Sort1OrderData\", "*.txt")
For MyFile As Integer = 0 To UBound(MyFiles)
Dim MyTempLines() As String = File.ReadAllLines(MyFiles(MyFile))
Dim MyTempBits() As String = Split(MyTempLines(0), "|")
Dim MyFileName As String = Path.GetFileName(MyFiles(MyFile))
ListBox1.Items.Add(MyTempBits(0))
ListBox2.Items.Add(MyTempBits(1))
File.Move("C:\Sort1OrderData\" & MyFileName, "C:\Sort1OrderArchive\" & MyFileName)
Next
End Sub
End Class

Hope it helps.

When you use For Each and then you remove one of the members of the For Each it causes an error so I used an array instead.

DarkConsultant

http://www.contactconsultants.co.uk

Live long and prosper \\//