Невозможно создать файлы в цикле с Visual Basic 7

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

Почему я получаю «разрешение запрещено», когда я создаю файл в цикле? Как это можно исправить? Thanx!

Answer 1

ofileSip - это TextStream, и если вы поместите его в цикл, как вы, тогда вы попытаетесь получить доступ к «открытому» текстовому потоку при повторении цикла во второй раз.

Сначала необходимо закрыть его следующим образом

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

ИМО, при зацикливании вы также должны изменить имя файла, иначе вы всегда создадите новый пустой файл с тем же именем иснова и снова.

Answer 2

Ну, я решил проблему, и, пожалуйста, не спрашивайте меня, как. Я просто передвигался по кодам, и он начал работать :) Я не то, что я сделал.