خطا في تشغيل كود

[invocker]

كود :

oFSO := CreateoleObject('Scripting.FileSystemObject') ; //هنا الخطا  oFile := oFSO.GetFile(filename) ;    oStream := oFile.OpenAsTextStream(1) ;    sSourceFile:=oStream.ReadAll ;    oStream.Close ;

ole error 800A0035