مشكل در اجراي FileSystemObject

[yassser]

با سلانم خدمت دوستان عزير
مشكلي كه براي من پيش امده اينه كه وقتي دستورات زير رو ميخوام اجرا كنم

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine ("This is a test.")
a.Close

اكسس 2003 از خط اول اشكال ميگيره : ActiveX componenet can't create object
وقتي اين دستورات رو در كامپيوتر ديگه اجرا ميكنم اكسس اشكالي نمي گيره و دستورات انجام ميشه
آفيس رو هم عوضش كردم ولي مشكلم حل نشد. جالبه كه ماه قبل اين دستوارت در كامپيوترم انجحام ميشد ولي حالا نميشه!
به نظر شما كار بايد كرد؟

[dadsara]

سلام
در قسمت VBA رفرنس مربوط به ActiveX تیک نخورده است

[yassser]

سلام
در قسمت tools ==> references
اينها تيك خوردند :
Visual basic for application
microsoft access 11.0 object library
در يه كامپيوتر ديكه كه اينها به تنهايي تيك خوردند اين دستورات اجرا ميشن ولي تو كامي من اجرا نميشن! :ناراحت:
Microsoft ActiveX data objects 2.8 هم تيك ميزنم ولي اجرا نميشه!

[dadsara]

سلام
مطابق تصویر پیوست عمل کنید

[yassser]

سلام
ممنون از راه حل بالا
من microsoft scripting runtime كه فايل اون scrrun.dll هست و در شاخه system32 هست رو در reference ها اضافه كردم و برنامه اجرا شد
با تشكر از دوست عزيز dadsara