读取txt文件出错

FLY000

FilePath="C:\InputData\"
FileName="保管点维"
SetDmw FilePath,FileName

Function SetDmw(FilePath,FileName)
   Set FSO=CreateObject("Scripting.FileSystemObject")
   fullPath=FilePath&FileName&".txt"
   Set objTextFile=FSO.OpenTextFile(fullPath,forReading,TristateUseDefault)
   strText=objTextFile.ReadAll
   objTextFile.Colse
   Browser("BI@Report 2.0").Page("BI@Report 2.0").Frame("Frame_5").WebEdit("index=0")=strText
   Browser("BI@Report 2.0").Page("BI@Report 2.0").Frame("Frame_5").Link("innertext:=保存").Click
End Function

运行到Set objTextFile=FSO.OpenTextFile(fullPath,forReading,TristateUseDefault)出错

假装不在

看来是MM了，所以很热情的帮助下
首先，说说你这个脚本里面有多少个错误的地方：
1，缺少定义FSO,objTextFile
2，缺少给forReading定义值，一般设置：1
3，在使用Set objTextFile=FSO.OpenTextFile(fullPath,forReading,TristateUseDefault)
情况下，TristateUseDefault这个是不需要的。
Set objTextFile=FSO.OpenTextFile(fullPath,forReading)
4，你的close拼错了。

hhhsmileyangxue

把forReading改成1
objTextFile.Colse的 Close写错了

FLY000

谢谢，问题解决了。
Function SetDmw(FilePath,FileName)
   Const ForReading=1
   Set FSO=CreateObject("Scripting.FileSystemObject")
   fullPath=FilePath&FileName&".txt"
   Set objTextFile=FSO.OpenTextFile(fullPath,ForReading)
   strText=objTextFile.ReadAll
   objTextFile.Close
   Browser("BI@Report 2.0").Page("BI@Report 2.0").Frame("Frame_5").WebEdit("index:=0")=strText
   Browser("BI@Report 2.0").Page("BI@Report 2.0").Frame("Frame_5").Link("innertext:=保存").Click
End Function

[ 本帖最后由 FLY000 于 2008-7-31 09:36 编辑 ]

zte_boy

仔细点就好了，呵呵，很简单的一个问题

kevin_swpi

假装不在...

看来你妹妹确实热情
对我们就有点恼火了哟

需要改进哈

★斌斌※测试☆

呵呵！
你俩真强！

★斌斌※测试☆

zte_boy

原帖由 ★斌斌※测试☆ 于 2008-7-31 22:37 发表
呵呵！
你俩真强！

谁有你强，还真能灌，呵呵
这可是技术区噢