bestanden tellen VB6 error

[bassie0007]

hallo,
ik heb een klein probleempje waar ik niet uit kom

ik wil weten hoeveel bestanden er in een bepaalde map + submap(pen) staan.
daarvoor heb ik hier op de website (http://www.helpmij.nl/forum/showthread.php?t=134365) de volgende vb6 code

Sub testme()

Dim i As Long

With Application.FileSearch
.NewSearch
.LookIn = "C:\Program Files"
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles

If .Execute() > 0 Then
MsgBox "Er zijn " & .FoundFiles.Count & _
" file(s) gevonden."
'For i = 1 To .FoundFiles.Count
'MsgBox .FoundFiles(i)
'Next i
Else
MsgBox "Geen bestanden gevonden."
End If
End With

End Sub

echter wanneer ik hem run in vb6 krijg ik de foutmelding "runtime error '424': object required"
ik heb al op internet gezocht maar krijg niet helemaal duidelijk waarom ik de foutmelding krijg.

 

[snb]

De methode werkt alleen in Office <2007.
Weet je het verschil tussen VB en VBA ?
Gebruik svp code tags (#)

Sub tst()
  c0="Geen bestanden gevonden."
  With Application.FileSearch
    .NewSearch
    .LookIn = "C:\Program Files"
    .SearchSubFolders = True
    .FileType = msoFileTypeAllFiles
     if .execute>0 then c0=replace(c0,"Geen","Er zijn " & .FoundFiles.Count)
    MsgBox c0
  End With
End Sub

 

[bassie0007]

ja ik weet het verschil.
maar aangezien ze het in die vraag het hadden over vb6 dacht ik dat het een vb6 code was.

maar weet je misschien hoe ik het moet oplossen in vb6?

 

[bassie0007]

kan iemand mij hiermee helpen?

alvast bedankt:thumb::thumb:

 

[snb]

Ik heb je het antwoord al gegeven.