Imports System.DirectoryServices
Imports System.IO
Imports System.Threading
Imports System.Data.SqlClient

    Private Sub Backgroundworker1_DoWork(ByVal sender As System.Object, ByVal e _
      As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim ofs As New DirectoryEntry("WinNT://fileserver/lanmanserver")
        Dim c As DirectoryEntries
        Dim oshare As DirectoryEntry
        Dim threadnum As Integer
        Dim threadarray(Me.ProgressBar1.Maximum - 3) As Thread
        Dim i As Integer = 100
        For threadnum = 0 To Me.ProgressBar1.Maximum - 3
            threadarray(threadnum) = New Thread(AddressOf GetFolderSize)
        Next threadnum
        c = ofs.Children
        threadnum = 0
        For Each oshare In c
            Select Case oshare.Name
                Case "HOME"
                Case "user$"
                Case Else
                    threadarray(threadnum).Start("\\fileserver\" & oshare.Name)
                    threadnum += 1
                    Do While Process.GetCurrentProcess().Threads.Count > 100
                        Thread.Sleep(5000)
                    Loop
            End Select
        Next
        ofs.Dispose()
        c = Nothing
        oshare.Dispose()
    End Sub

    Sub GetFolderSize(ByVal state As Object)
        Try
            Dim Dirpath = CType(state, String)
            Dim size1 As Long = 0
            Dim size2 As Decimal
            Dim diBase As New DirectoryInfo(Dirpath)
            Dim files() As FileInfo
            Dim includeSubFolders As Boolean = True
            If includeSubFolders Then
                files = diBase.GetFiles("*", SearchOption.AllDirectories)
            Else
                files = diBase.GetFiles("*", SearchOption.TopDirectoryOnly)
            End If
            Dim ie As IEnumerator = files.GetEnumerator
            While ie.MoveNext
                size1 += DirectCast(ie.Current, FileInfo).Length
            End While
            size2 = Math.Round(size1 / 1024 / 1024, 2)
            SyncLock Me
                Me.dbentry(Dirpath, size2)
            End SyncLock
            Dirpath = Nothing
            size1 = Nothing
            size2 = Nothing
            diBase = Nothing
            files = Nothing
            GC.Collect()
            SetProcessWorkingSetSize(Process.GetCurrentProcess().Handle, -1, -1)
        Catch ex As Exception
            Dim DirPath As String = CStr(state(1))
            MsgBox("Error in " & DirPath & ": " & ex.Message)
        End Try
        Me.Invoke(New progressDelegate(AddressOf progress))
        Me.Invoke(New txtdelegate(AddressOf timevorraus))
    End Sub