The specified path, file name, or both are too long. The fully qualified file name must be less than 260 characters, and the directory name must be less than 248 characters

Private Sub EnumProcesses()
		' Enumerate all processes
		Try
			Dim Processes() As Process

			' Timespans for individual process information
			Dim tpt As TimeSpan
			Dim tppt As TimeSpan
			Dim tupt As TimeSpan

			' Timespans for machine
			Dim mtpt As TimeSpan
			Dim mtppt As TimeSpan
			Dim mtupt As TimeSpan

			Dim i As Integer
			Dim p As Process

			If Not mcolProcesses Is Nothing Then
				mcolProcesses = New Collection()
			End If

			If Me.lvProcesses.Items.Count > 0 Then
				Me.lvProcesses.Items.Clear()
				Me.lvProcessDetail.Items.Clear()
				Me.lvThreads.Items.Clear()
			End If
			Processes = Process.GetProcesses()

			For Each p In Processes
				mcolProcesses.Add(p, p.Id.ToString())

				' Get processor time and store
				tppt = p.PrivilegedProcessorTime
				tupt = p.UserProcessorTime
				tpt = p.TotalProcessorTime

				' Add the current process’ times to total times.
				mtpt = mtpt.Add(tpt)
				mtppt = mtppt.Add(tppt)
				mtupt = mtupt.Add(tupt)

				' % User Processor Time
				Dim strPUPT As String = CDbl(tupt.Ticks / tpt.Ticks).ToString("#0%")
				' % Privileged Processor Time
				Dim strPPPT As String = CDbl(tppt.Ticks / tpt.Ticks).ToString("#0%")

				Dim strTPT As String
				With tpt
					strTPT = (.Days.ToString("00") & "." & .Hours.ToString("00") & ":" & .Minutes.ToString("00") & ":" & .Seconds.ToString("00"))
				End With

				With Me.lvProcesses.Items.Add(p.ProcessName & " (0x" & Hex(p.Id).ToLower() & ")")
					.SubItems.Add(p.Id.ToString())
					.SubItems.Add(strTPT)
					.SubItems.Add(strPPPT)
					.SubItems.Add(strPUPT)
				End With
			Next

			' % Total User Processor Time
			Dim mstrPUPT As String = CDbl(mtupt.Ticks / mtpt.Ticks).ToString("#0%")
			' % Total Privileged Processor Time
			Dim mstrPPPT As String = CDbl(mtppt.Ticks / mtpt.Ticks).ToString("#0%")

			Dim mstrTPT As String
			With mtpt
				mstrTPT = (.Days.ToString("00") & "." & .Hours.ToString("00") & ":" & .Minutes.ToString("00") & ":" & .Seconds.ToString("00"))
			End With

			' Add entry for all processes
			With Me.lvProcesses.Items.Add(PROCESS_NAME_TOTAL)
				.SubItems.Add(PID_NA)
				.SubItems.Add(mstrTPT)
				.SubItems.Add(mstrPPPT)
				.SubItems.Add(mstrPUPT)
			End With
		Catch exp As Exception
			MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, MessageBoxIcon.Error)
		End Try
	End Sub