Ошибка в коде программы

[killerb]

Доброго времени суток!

Пишу программу для замены одного текста другим в указанной папке. Программа готова, вот только ошибку выдает в самом странном месте:

Код: Выделить всё

Public Sub ReWrite(ByVal Path As String, FindText As String, ReplaceText As String)

Dim SaveText As String
Dim InputText As String
   
    Open Path For Input As #8
       
        Do
            Line Input #8, InputText
            SaveText = SaveText & InputText & vbCrLf
        Loop Until EOF(8)
       
    Close #8

SaveText = Replace(SaveText, FindText, ReplaceText)

    Open Path For Output As #9'Тут выскакивает ошибка "Файл уже открыт"

        Print #9, SaveText

    Close #9

End Sub


Пожалуйста помогите исправить код!

[a_mayor]

Проблема не в коде. Код работает нормально.
У тебя видимо файл в памяти где-то завис или параллельно кем-то открыт и недоступен для записи.
Попробуй перезапустить Басик.
Или попробуй запусти функцию Reset в коде.

[killerb]

Вроде код в порядке, а что это за Reset и с чем его едят ?

[killerb]

Все, нашел ошибку. Действительно файл был открыт еще одним Sub'ом.

[GSerg]

Вот именно для этого придумали функцию FreeFile...

[Tin]

а точнее:
dim fileno as integer
fileno=freefile
open filename for output as fileno
print #fileno,"text"
close fileno