Incrementing counter on variable value changes

[des0906]

Greetings all.

I have been looking at this code for a bit and I am uncertain of where I have gone wrong. The message box reflects the folder name changes accurately but I never see the counter go beyond 1. This is the only area of the function where the counter value changes. Go figure.

This is part of a function that scans the files in a specified directory and inserts the file names, folder path and other information into a table. I am attempting to create a 'folder group id' for each folder.

If (Trim(TheFolder) = Trim(TheCurrentFolder) = False) Then
TheCurrentFolder = TheFolder
theFolderCount = theFolderCount + 1
If MsgBox("(" & theFolderCount & ",'" & TheCurrentFolder & "')", vbYesNo + vbExclamation,
"Keep Going?") = vbNo Then
End
End If
End If

 

[RoyVidar]

Well, in this snippet, the counter would change to one, if it isn't incremented before. What more are we supposed to read or guess out of what you've posted? One hunch though, depending on how you're invoking this, could declaring theFolderCount with the Static keyword be it?

Roy-Vidar

 

[TheAceMan1]

How are ya des0906 . . . . .

You may need to put [blue]theFolderCount[/blue] in the Declarations section of the module to [blue]keep it in scope![/blue]

See Ya! . . . . . .

 

[PHV]

Just a naive question, why using this:
If (Trim(TheFolder) = Trim(TheCurrentFolder) = False) Then
Instead of this ?
If Trim(TheFolder) <> Trim(TheCurrentFolder) Then

What is supposed to do the End instruction for you ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[TheAceMan1]

PHV is right! . . . . .

[blue]If (Trim(TheFolder) = Trim(TheCurrentFolder) = False) Then
[purple]Is Equavilent To:[/purple]
If (A = B = C) Then[/blue]

See Ya! . . . . . .