Missing active x component file, but which one??

[Guest]

the error comes on the second or third lin
-----------------------------------------------------------------------------------------
'Returns true if the string passed in is a file that is available to the
program
Private Function fileExists(filename As String) As Boolean
Dim fs1 As New Scripting.FileSystemObject

fileExists = fs1.fileExists(filename)
End Functio
-----------------------------------------------------------------------------------------
run time error 429
Active X component can't create object


when I go to check references nothing is marked as MISSING

so how do I find out wich component file is missing so I can replace?
Does anyone know which active X componenet file it is?

 

[Guest]

Hi Adam,

Try changing you dim statement to

Dim fs1 as Object

This is how I've done done this in the past. If it still doesn't work, let
me know what references you have and I'll compare them to my application in
which this works.

Jim