Question

Anyone knows the easy way to do so?

Basically after I queue all works, I want to wait until all I queued has been done. How do I do so?

   loopThroughAllBlog(whattodo, login)'queue all works

//what to do here to wait till all queued works are done.

    Dim whatToWrite = New Generic.List(Of String)
    For Each domain In domainsSorted
        whatToWrite.Add(dictionaryOfOutput.Item(domain))
    Next
    coltofile(whatToWrite, "output.txt", True)

I notice there is no way to know how many threads are still running in the threadpool.

Answer 1

I ended up answering my own question because there is no answer.

Public Function threadPoolIdle() As Boolean
    Dim workerThreads As Integer
    Dim completionPorts As Integer
    Dim maxWorkerThreads As Integer
    Dim maxCompletionPorts As Integer
    Dim stillWorking As Integer

    Threading.ThreadPool.GetAvailableThreads(workerThreads, completionPorts)
    Threading.ThreadPool.GetMaxThreads(maxWorkerThreads, maxCompletionPorts)
    stillWorking = maxWorkerThreads + maxCompletionPorts - workerThreads - completionPorts

    If stillWorking > 0 Then
        Return False
    Else
        Return True
    End If

End Function

Public Sub waitTillThreadPoolisIdle()
    Do
        Sleep(1000)
        Application.DoEvents()
    Loop While threadPoolIdle() = False
End Sub

I think this is just awkward. There has to be a better way.