"Scripting.FileSystemObject" suddenly stopped working

[Budget Programmer]

Hello,

I've had a macro in place for over a year and a half. It works fine weekly.
Suddenly, I get an error. I've made no changes to the environment (Vista 32
Home Premium, Excel 2007)

Under Tools / References I have checked:
- Visual Basic For Applications
- Microsoft Excel 12.0 Object Library
- OLE Automation
- Microsoft Office 12.0 Object Library

These haven't changed.
Here's some of the pertanent lines from the code:

Sub CreateEditedSongListing()
'DECLARE VARIABLES
Dim objFSO As Object
Dim objFolder As Object

'Use Microsoft Scripting runtime.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strSongs_EditedPath)

End Sub

I get an error on the first SET statement. "Run-time error: '429' ActiveX
component can't create object."

Any idea what's going on?

Thanks for your help.

 

[Budget Programmer]

Steve,
Thanks for responding. That idea came to me as well after a little while.
However, it didn't fix the problem. Any idea where
"Scripting.FileSystemObject" resides? Maybe that file got corrupted somehow.
Phil

 

[Budget Programmer]

Steve,
Somehow, that registration of that DLL got messed up.
Based on Peter T's suggestion I had to run
regsvr32 scrrun.dll
Since this is Vista, I had to run it as an Administrator.
That fixed the problem.
Thanks for your help.
Phil

 

[jaffray]

Excel 2007 VB Script Run-time Error 429 when execute:
Set objFSO = CreateObject("Scripting.FileSystemObject").

Solution:
1. Check "My Documents" location it pointed.
2. Check Excel Option save location.
3. Run "regsvr32 scrrun.dll".

Reference:
http://forums.techguy.org/business-applications/588799-outlook-2007-error.html
https://www.pcreview.co.uk/forums/scripting-filesystemobject-suddenly-stopped-working-t3957006.html