写文件的问题

[sunjian5188]

高手们帮帮忙
Dim I As Integer
Dim str As String
Dim fsoTest As New FileSystemObject, file1 As File, ts As TextStream
Set file1 = fsoTest.GetFile("C:\Documents and Settings\Administrator\桌面\SubWayOPS0708_code\frmXReadingByPLU.frm")
Set ts = file1.OpenAsTextStream(ForWriting)
运行到这里的时候报告文件模式错误
Do While Not ts.AtEndOfStream


str = ts.ReadLine
Select Case Left(Trim(str), 7)

Case "Caption"
我的目地是在找到文件中那里有Caption字符串的时候在他的后面加上一个定符串前面的不能覆盖
ts.WriteLine (" 20, 4.5, -30")
ts.Write ("Visual Basic 6.0")

End Select
Loop
Set ts = Nothing

[since1990]

帮你 up

[cso]

你试着把文件路径改为短路径试试看，是不是他不支持有空格的长路径，很多函数都有这个毛病的

[sunjian5188]

怎么没有人知道吗!

[踏平扶桑]

用open语句也可以吧