Program til overvågning af mappe crasher efter noget tid

Hej

Jeg prøver at lave et program der hele tiden skal overvåge en mappe. Når den finder en ny fil i mappen skal den så udføre en konvertering af denne fil. Jeg har skrevet nedenstående kode som virker fint til at starte med. Men efter at den måske har kørt i en time så går programmet ned uden fejl. Er der en bedre måde at kode det på? Jeg vil desuden meget gerne have mulighed for at køre funktionen MakeFile() 2 gange parallelt på hver sin kerne (til overvågning af 2 forskellige mapper). Hvordan kan det gøres?

Jeg koder i Visual Basic Express 2010 og her er min kode:

Option Explicit On
Imports System
Imports System.IO
Imports System.Threading

Public Class Form1
    Public lineRead, Path1, AddText, PathConverter, WaitTime As String
    Public ConvertedCounter As Integer

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        Me.Show()
        LoadSettings()
        MakeFile()
    End Sub

    Private Function MakeFile()
        Dim di As New DirectoryInfo(Path1)
        Dim fiArr As FileInfo() = di.GetFiles()

        Dim fil As FileInfo
        For Each fil In fiArr
            If fil.Extension = ".dnz" Then
                ' Check if .coz file exists
                Dim fInfo As New FileInfo(Path1 & "\" & Replace(fil.Name, ".dnz", ".coz"))
                Dim fInfo1 As New FileInfo(Path1 & "\" & Replace(fil.Name, ".dnz", ".coz." & AddText))
                If Not fInfo.Exists And Not fInfo1.Exists Then
                    ' Check if .dnz.tmp file exists
                    Dim fInfo2 As New FileInfo(Path1 & "\" & Replace(fil.Name, ".dnz", ".dnz.tmp"))
                    If fInfo2.Exists Then
                        ' Check if create time of file is > NOW - WaitTime
                        If DateDiff(DateInterval.Minute, fil.CreationTime, DateAdd(DateInterval.Minute, -WaitTime, Now)) > WaitTime Then
                            ' Check if last write time of file is > NOW - WaitTime
                            If DateDiff(DateInterval.Minute, fil.LastWriteTime, DateAdd(DateInterval.Minute, -WaitTime, Now)) > WaitTime Then
                                ' Only convert file if it is not older than 1 day
                                If DateDiff(DateInterval.Hour, fil.CreationTime, Now) < 24 Then

                                    Dim pInfo As New ProcessStartInfo()
                                    Dim p As Process = Process.Start(PathConverter, "Convert """ & Path1 & "\" & fil.Name & """ """ & Path1 & "\" & Replace(fil.Name, ".dnz", ".coz.") & AddText & "")

                                    Do While Not p.HasExited
                                        ' The last process is still running
                                        Threading.Thread.Sleep(1000)
                                        Application.DoEvents()
                                    Loop

                                    ' Rename file when the above process is done
                                    My.Computer.FileSystem.RenameFile(Path1 & "\" & Replace(fil.Name, ".dnz", ".coz.") & AddText, Replace(fil.Name, ".dnz", ".coz"))
                                    ConvertedCounter = ConvertedCounter + 1
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        Next fil

        For i = 1 To 10
            Threading.Thread.Sleep(1000)
            Application.DoEvents()
        Next
        MakeFile()
    End Function
End Class