Archief - VB.NET geheugengebruik programma

System.GC.Collect()
System.GC.WaitForPendingFinalizers()
System.GC.Collect()

    Private Sub tmrProcessScanner_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrProcessScanner.Tick
        Try
            For Each oProcess As Process In Process.GetProcesses
                If oProcess.ProcessName = "WolfMP" Then
                    'RTCW IS RUNNING
                    Dim fullpath As String = oProcess.MainModule.FileName
                    Dim trimmedpath As String = fullpath.Remove(fullpath.LastIndexOf("\"), 11)

                    If Not RTCWPath = trimmedpath Then
                        RTCWPath = trimmedpath
                        fswMaps.Path = RTCWPath & "\Main"
                        fswMaps.EnableRaisingEvents = True

                        'Cleanup TMP files
                        CheckTMPFiles()

                        'Memory cleanup
                        fullpath = Nothing
                        trimmedpath = Nothing

                        Exit Sub
                    End If

                    'Memory cleanup
                    fullpath = Nothing
                    trimmedpath = Nothing

                    'Exit for lus
                    Exit For
                Else
                    'RTCW IS NOT RUNNING
                    If Not RTCWPath = "" Then
                        RTCWPath = ""
                        fswMaps.EnableRaisingEvents = False
                    End If
                End If
            Next
        Catch ex As Exception

        End Try
    End Sub

    Private Sub CheckTMPFiles()
        Try
            'TMP Files cleanup
            If Directory.Exists(RTCWPath & "\Main") Then
                For Each oFile As String In Directory.GetFiles(RTCWPath & "\Main")
                    If oFile.EndsWith(".pk3.tmp") Then
                        File.Delete(oFile)
                    End If
                Next
            End If
        Catch ex As Exception

        End Try
    End Sub