Привет!
Вот еще вопрос... Есть процедура, которая пишет в файл данные.
при первом вызове процедуры stream.Open(pathname) создает файл (файла до этого не существовало). Тут проблем нет.
Ну так вот в чем собственно проблема... Если при вызове процедуры файл бы - пользователю предлагается пересоздать файл.
И снова возвращаемся чтоб открыть поток... но тут ошибка "файл не существует"
Что не так?
Вот еще вопрос... Есть процедура, которая пишет в файл данные.
Код:
Dim ws As New NotesUIWorkspace
Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim stream As NotesStream
Dim pathname As String
Dim tmp As Variant
Dim i As Integer
pathname = "d:\test.txt"
pathname = ws.OpenFileDialog( False, "Выберите файл",,"d:\", pathname)(0)
If IsEmpty(pathname) Then
Exit Sub
End If
Set session = New NotesSession
Set db = session.CurrentDatabase
Ret:
Set stream = session.CreateStream
If Not stream.Open(pathname) Then
MessageBox pathname,, "Ошибка открытия файла"
Exit Sub
End If
If stream.Bytes <> 0 Then
If MessageBox("Файл уже существует и содержит данные. Удалить файл?", 1 + 32, "Внимание") = 1 Then
Call stream.Close
Set stream = Nothing
Kill(pathname)
GoTo Ret
Else
Exit Sub
End If
End If
Call stream.WriteText("ПРОВЕРКА", EOL_CRLF)
Call stream.Close
Ну так вот в чем собственно проблема... Если при вызове процедуры файл бы - пользователю предлагается пересоздать файл.
И снова возвращаемся чтоб открыть поток... но тут ошибка "файл не существует"
Что не так?