无法使用Visual 7在while循环中创建文件

Question

当我在while-循环之外创建一个文件时，运行良好，如下所示：

Set oFileSip = fso.CreateTextFile(strUriMetadata, True)    
While (Not rs.EOF)
   rs.MoveNext
Wend

当我试图按如下方式在循环中创建文件时，权限被拒绝(错误70)

While (Not rs.EOF)
   Set oFileSip = fso.CreateTextFile(strUriMetadata, True)
   rs.MoveNext
Wend

当我在循环中创建文件时，为什么要获得“拒绝权限”？怎么才能解决这个问题？谢谢！

Answer 1

ofileSip是一个TextStream，如果你像你一样把它放入一个循环中，那么当你第二次循环时，你会尝试访问一个“打开”的文本流。

你得先像这样关闭它

Do while (Not rs.EOF)
    Set oFileSip = fso.CreateTextFile(strUriMetadata, True)
    ' further code
    oFileSip.Close
    rs.MoveNext
Loop

在循环时，IMO还应该更改文件的名称，否则总是会一次又一次地创建一个新的空文件。