Invalid property value

[hothead]

Why do I get an invalid property value on this line?

pbrProgress.Value = pbrProgress.Value + thisFile.Size

thisFile is dimmed as a File.

Here's the whole function in case.

Sub ScanFolder(FolderSpec)
    Dim thisFolder As Folder
    Dim allFolders As Folders
    Dim thisFile As File
    Dim allFiles As Files
    Dim TotalCDSize As Long
    Dim i As Integer
    Dim x As Integer
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Set fso = New FileSystemObject
    rs.Open dtaVolumes.RecordSource, dtaVolumes.ConnectionString, adOpenKeyset, adLockOptimistic
    Set thisFolder = fso.GetFolder(FolderSpec)
    Set allFolders = thisFolder.SubFolders
    For Each thisFolder In allFolders
        If (thisFolder.Attributes And Hidden) <> Hidden Then
            Set allFiles = thisFolder.Files
            If allFiles.Count > 0 Then
                For Each thisFile In allFiles
                    TotalCDSize = TotalCDSize + thisFile.Size
                Next
                pbrProgress.Max = TotalCDSize
                For Each thisFile In allFiles
                    rs.AddNew
                    rs!Files = thisFile.Name
                    pbrProgress.Value = pbrProgress.Value + thisFile.Size
                Next
            End If
            Set allFiles = Nothing
            ScanFolder thisFolder.Path
        End If
        DoEvents
    Next
    Set thisFolder = Nothing
    Set allFolders = Nothing
    Set rs = Nothing
    Set fso = Nothing
    Exit Sub
    Unload Me
End Sub

[rameshk]

Please put break-point and check whether pbrProgress.Max value exceeds after executing this line.

[hothead]

Inserting the breakpoint, I did a Debug.Print on pbrProgress.Max, and it turned out to have a value of 5,455,526. I can't do this on pbrProgress.Value because VB locks up. (I switched tasks between IE and VB) DoEvents should fix this, right?

[BuggyProgrammer]

I would suggest to make the max 100, and calculate a percentage instead.

[Shaggy Hiker]

Put a messagebox into the code to show the value just before you are going to use it. That ought to tell you what you need to know.

[hothead]

Originally posted by BuggyProgrammer
I would suggest to make the max 100, and calculate a percentage instead.

So noted. Percentage is calculated by dividing the total size of all files on the CD by the amount of data processed, correct?

[BuggyProgrammer]

Originally posted by hothead
So noted. Percentage is calculated by dividing the total size of all files on the CD by the amount of data processed, correct?

Yes.

[hothead]

One more problem.

Why does VB lock up when I try to debug the program after getting an error? Is it because I'm subclassing, and have the form hooked?

[BuggyProgrammer]

Yes.