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

[invocker]

كود :

oFSO := CreateoleObject('Scripting.FileSystemObject') ;
//هنا الخطا  oFile := oFSO.GetFile(filename) ;

   oStream := oFile.OpenAsTextStream(1) ;
   sSourceFile:=oStream.ReadAll ;
   oStream.Close ;

ole error 800A0035