Form will not show until sub has completed. [SOLVED]

[hothead]

Ok, got rid of all the headaches in the search algorithm I used, it shows the startup form, but I have another form with a progress bar on it, and that won't show until the algorithm has completed its routine.

Sub ScanFolder(FolderSpec)
    Dim thisFolder As Folder
    Dim allFolders As Folders
    Dim thisFile As File
    Dim allFiles As Files
    Dim lstItem As ListItem
    Set fso = New FileSystemObject
    If Not FolderSpec = "D" Then
        Set thisFolder = fso.GetFolder(FolderSpec & "\")
    Else
        Set thisFolder = fso.GetFolder(FolderSpec & ":")
    End If
    Set allFolders = thisFolder.SubFolders
    For Each thisFolder In allFolders
        Set allFiles = thisFolder.Files
        If allFiles.Count > 0 Then
            For Each thisFile In allFiles
                Set lstItem = frmMain.lvwVolumes.ListItems.Add(, , thisFile.Name)
                lstItem.SubItems(1) = thisFile.Size
            Next
        End If
        Set allFiles = Nothing
        ScanFolder thisFolder.Path
        DoEvents
    Next
    Set thisFolder = Nothing
    Set allFolders = Nothing
    Set rs = Nothing
    Set fso = Nothing
    Exit Sub
End Sub

And here's where I call the form.

Sub ProcessDeviceChange(wParam As Long, lParam As Long)
    Dim DBHdr As DEV_BROADCAST_HDR
    Dim DBVol As DEV_BROADCAST_VOLUME
    CopyMemory DBHdr, ByVal lParam, LenB(DBHdr)
    If wParam = DBT_DEVICEARRIVAL Then
        If DBHdr.dbch_devicetype = DBT_DEVTYP_VOLUME Then
            CopyMemory DBVol, ByVal lParam, LenB(DBVol)
            If (DBVol.dbcv_flags And DBTF_MEDIA) = DBTF_MEDIA Then
                frmSetup.Show
            End If
        End If
    End If
End Sub

[DiGiTaIErRoR]

Uhm... I don't see where you call ScanFolder... nor the progress bar code. If you call this from fom_load, that may be the problem. Try form_activate instead.

[hothead]

Thanks, that worked.

Yes, I was calling it from Form_Load

Private Sub Form_Load()
    Dim drv As Drive
    CenterForm Me
    Set fso = New FileSystemObject
    For Each drv In fso.Drives
        If drv.DriveType = CDRom Then
            If drv.IsReady = True Then
                ScanFolder drv.DriveLetter
            Else
                Exit Sub
            End If
        End If
    Next
    For i = 1 To frmMain.lvwVolumes.ListItems.Count
        TotalCDSize = TotalCDSize + frmMain.lvwVolumes.ListItems(i).SubItems(1)
    Next i
    For i = 1 To frmMain.lvwVolumes.ListItems.Count
        
        BytesProcessed = BytesProcessed + frmMain.lvwVolumes.ListItems(i).SubItems(1)
        pbrProgress.Value = BytesProcessed / TotalCDSize
    Next i
    Set fso = Nothing
End Sub

Moving it to Form_Activate worked.