Counting files excluding thums.db

[JeroenMioch]

When i debug print it says the variable has not yet been made in this context.

I have tried basicly everything i can to understand why the code in the sample database works and not in the real one.

I have compared the library's and the only thing differen i see is the Microsoft Office 14.0 Access database object library. But i cant turn that on in the real db because of a conflicting library) , However if i uncheck it at the sample database, it code runs flawless.



My code was in form_current and in the sample under a button. So i duplicated that situation, same effect (type mismatch) returns.

I have tried with and without trailing behind the path to the directory, no type mismatch, but no results either.
Ive tried making a new textbox to display the results on my form, that didnt help.

The funny thing is, at the point the error occurs and when im hovering with my mouse over the error it says :

Set ObjFolder = Nothing
and at the strFile is see the correct path to the directory i wanna check.

I am clueless ..

[ssanfu]

Do you have a reference set to "Microsoft Scripting Runtime"? I has to set that reference to get the code to run.

I think there is a logic error in the FOR loop. "ctrlGetFileCount" (control on form?) will be (re)set to the dir count every loop if the extension is not ".db". If the file with ".db" happens is the 20th file of 40, when the 20 th file is reached, the count is reduced to 39. But on the next loop, the file count is back at 40 (objFolder.Files.Count).

Consider this:

    Dim strFile As String
    Dim ctrlGetFileCount As Integer
    strFile = "C:\Maindir\Subdir1\Subdir2\"

    If Len(Dir(strFile)) = 0 Then
        ctrlGetFileCount = 0
    Else
        Dim fsoFile As New FileSystemObject
        Dim objFolder As folder
        Dim objFile As File
        Set objFolder = fsoFile.GetFolder(strFile)

        ctrlGetFileCount = objFolder.Files.Count
        For Each objFile In objFolder.Files

            If InStr(objFile.Name, ".db") Then
                ctrlGetFileCount = objFolder.Files.Count - 1
            End If
        Next
        Set objFolder = Nothing
    End If

One other thing. Do you have the following two lines as the top two lines in the (every) module?

Option Compare Database
Option Explicit

[JeroenMioch]

Hi ssanfu, Yes i have option explicit in most of my forms, and especially this one.
Scripting runtime was also preset.

Your code didnt work on my sample database and the new one either.

However i fixed the problem..

I made a new database, copied all objects within and added references to the libraries.
And it works !!!
A risky operation because i have a LOT of objects, and 8000+ lines of code. And im probably not going to be able to go to sleep tonight worrying that something did go wrong during the copy.

My database was made in 2007 on ACC 2003 and upgraded it on the go till now.
I hope i fixed the problem now, refrences too old or something like that.
Seems you cannot upgrade old products without being punnished for it :P

[ItsMe]

i have a LOT of objects, and 8000+ lines of code.

Be sure to compile your code as you write it. Understand that the Graphic Interface designer and the VBA editor/IDE are two different programs. Save often. Pay attention to how many different forms, reports, etc. you are making design changes to at a given time. Try to limit the number of objects and or modules to one, when possible.

[ssanfu]

Probably a little corruption started in the old file. Did you convert the dB to A2010 format (accdb)?

Did you understand the logic changes to the code I made?

Great that you fix the problem.

Remember the 3 rules pf computing:
1) Backup,
2) Backup,
and
3) Backup!