очистка файла через FileStream

[Dmitriy Solomnikov]

есть поток (FileStream), который открывает файл. После считывания информации мне нужно очистить(полностью) файл и записать в него новые данные, но FileStream закрывать крайне не желательно.

Как можно очистить файл, не закрывая поток?

[Nord777]

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

  Dim FS As New IO.FileStream("c:\1.txt", IO.FileMode.OpenOrCreate)
        Dim s As String = "1234567890"
        Dim B() As Byte

        ReDim B(s.Length - 1)
        For i As Integer = 0 To s.Length - 1
            B(i) = CType(Asc(s(i)), Byte)
        Next

        'записали чтонить в файл
        FS.Write(B, 0, s.Length)
        'обнулили не закрывая
        FS.SetLength(0)
        'и записали еще чтонить
        FS.Write(B, 0, s.Length)

        FS.Close()

[vick2312]

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

Dim FS As New IO.FileStream("c:\1.txt", IO.FileMode.OpenOrCreate)
...
'записали чтонить в файл
FS.Write(B, 0, s.Length)
'обнулили не закрывая
FS.SetLength(0)
'и записали еще чтонить
FS.Write(B, 0, s.Length)

FS.Close()

этот метод не катит, к сожалению, потому что если следущая, после обнуления длины потока, запись корочей предшествующей, то в файле остаётся мусор...
Есть ещё у кого идеи?

[Nord777]

Flush не пробовал?

[vick2312]

Flush не пробовал?

Пробовал... Тут, правда, надо уточнить (прошу прощения, что сразу не сказал, - виноват, исправлюсь), что работал с BinaryReader, BinaryWriter... Со StreamReader, StreamWriter такого не получилось.