.NET (Core and Framework)

1.
An unhandled exception of type 'System.Net.Sockets.SocketException' occurred in System.dll

Additional information: An operation on a socket could not be performed because the system lacked sufficient buffer space or because a queue was full

2.
An unhandled exception of type 'System.IO.IOException' occurred in System.dll

Additional information: Unable to read data from the transport connection: An existing connection was forcibly closed by the remote host.

Public Shared Function FileCount(PathName As String) As Long
        Try
            Dim FSO As New FileSystemObject
            Dim fld As Folder
            If FSO.FolderExists(PathName) Then
                fld = FSO.GetFolder(PathName)
                FileCount = fld.Files.Count
            End If
            Return FileCount
        Catch ex As DirectoryNotFoundException
        End Try
    End Function 'Calculate File Count

    Public Shared Sub StartNewScan(ByVal FilePath As String)
        Dim Allfile As String = "*.*"
        Dim FFcount As Long
        Dim MyFolderSize As Long
        Dim FullPath As String
        Using fse As New FindFiles.FileSystemEnumerator(FilePath, Allfile, True)
            Dim ien As IEnumerator(Of FileInfo) = fse.Matches().GetEnumerator()
            ien.Dispose()
            For Each fi As FileInfo In fse.Matches()
                FFcount += CStr(FileCount(fi.DirectoryName)).Length
                Form1.Label3.Text = CStr( "File Count:" & FFcount)
                MyFolderSize += fi.Length
                FullPath = fi.FullName
                Form1.Label4.Text = "File Path:" & FullPath
            Next
        End Using
    End Sub

Dim StartSharedSub as new threading.thread(addressof Startnewscan)
startsharedsub.start()