ActiveX Error 429

[biganthony]

Hello,

I have a problem with the following error message:

"Active X component can't create object. Error number is 429."

The database is in Access 2003 SP3. The OS is Windows XP SP3. This message is
appearing on one computer only.

The same database successfully works on three other computers with the
following combinations:
Windows XP SP3, Office 2007 SP2
Windows XP x64, Office 2003 SP3
Windows 7, Office 2003 SP3

There are no missing References. All the XP computers are up to date in terms
of updates and patches.

The error message appears after I use the BrowseFolder function to select a
folder to copy a file into. The BrowserFolder window opens, I select a folder,
click OK and the error message appears.

I have unregistered and then reregistered the DAO360.dll and shell32.dll
files on the offending machine. I still get the error message.

I am using the BrowseFolder function from:
http://www.mvps.org/access/api/api0002.htm

Are there any other files that I can try re-registering that can help solve
this problem? I am at a loss to solve this problem and hope some one can
point me in the right direction.

Thanks,
Anthony

 

[biganthony]

Sorry I forgot to add the code I am using that calls BrowseFolder. The code
below copies the data files from a folder and places them into a folder
selected using BrowseFolder.

Dim Destination As String
Dim Source As String
Dim fso As Object

'this is the export folder.
Source = "c:\exportfolder\*.*"
Destination = BrowseFolder("Select the Backup Folder or Drive. Your data
files will be copied from the export folder to this location.")
If Destination = vbNullString Then Exit Function
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile Source, Destination, True 'overwrite files already existing
on destination.
Set fso = Nothing
MsgBox "Your exported files have been successfully backed up to " &
Destination & ".", vbOKOnly + vbInformation, "Success!"

 

[Douglas J. Steele]

Why not scrap the use of BrowseFolder and use the API call in
http://www.mvps.org/access/api/api0002.htm at "The Access Web" instead?

 

[biganthony via AccessMonster.com]

Douglas,

The web page you suggest is the code I am using for the Browse Folder.(
http://www.mvps.org/access/api/api0002.htm)

Would my problem lie with using Set fso = CreateObject("Scripting.
FileSystemObject")?

Anthony

Why not scrap the use of BrowseFolder and use the API call in
http://www.mvps.org/access/api/api0002.htm at "The Access Web" instead?

Sorry I forgot to add the code I am using that calls BrowseFolder. The
code

[quoted text clipped - 58 lines]

 

[Douglas J. Steele]

Likely. Have you tried single-stepping through the code to see where it
dies?

--
Doug Steele, Microsoft Access MVP
http://www.AccessMVP.com/DJSteele
(no e-mails, please!)

Douglas,

The web page you suggest is the code I am using for the Browse Folder.(
http://www.mvps.org/access/api/api0002.htm)

Would my problem lie with using Set fso = CreateObject("Scripting.
FileSystemObject")?

Anthony

Why not scrap the use of BrowseFolder and use the API call in
http://www.mvps.org/access/api/api0002.htm at "The Access Web" instead?

Sorry I forgot to add the code I am using that calls BrowseFolder. The
code

[quoted text clipped - 58 lines]

Thanks,
Anthony

 

[biganthony via AccessMonster.com]

Douglas,

I have stepped through the code and it dies on this line: Set fso =
CreateObject("Scripting.
FileSystemObject")

Would you have any ideas how I can fix it? This problem is occurring on only
one machine - it works on other XP machines.

Is there another way to copy all files from a folder into a folder selected
by a user?

Thank you for your help.
Anthony

Likely. Have you tried single-stepping through the code to see where it
dies?

Douglas,

[quoted text clipped - 14 lines]

 

[biganthony via AccessMonster.com]

When I click on Scripting.FileSystemObject key in the Registry I get the
following error message: "Cannot open Scripting.FileSystemObject: Error while
Opening Key."

The Scripting.FileSystemObject key is at: HKLM\Software\Classes\Scripting.
FileSystemObject

Does anyone know how I can repair this?

Anthony

Douglas,

I have stepped through the code and it dies on this line: Set fso =
CreateObject("Scripting.
FileSystemObject")

Would you have any ideas how I can fix it? This problem is occurring on only
one machine - it works on other XP machines.

Is there another way to copy all files from a folder into a folder selected
by a user?

Thank you for your help.
Anthony

Likely. Have you tried single-stepping through the code to see where it
dies?

[quoted text clipped - 4 lines]

 

[biganthony via AccessMonster.com]

Hi,

I fixed this problem.

I used the ideas from this page
http://social.msdn.microsoft.com/Forums/en/vssetup/thread/ca9c69e6-9b75-462f-b2e5-92198e584981


to help me.

Thanks Douglas for replying.

Anthony

When I click on Scripting.FileSystemObject key in the Registry I get the
following error message: "Cannot open Scripting.FileSystemObject: Error while
Opening Key."

The Scripting.FileSystemObject key is at: HKLM\Software\Classes\Scripting.
FileSystemObject

Does anyone know how I can repair this?

Anthony

Douglas,

[quoted text clipped - 16 lines]