Stream to .rtf file

[Reinhardt1julian]

When I stream richtedit content to a .rtf file and want to open it, word tells me the file is locked by another user (I guess it's my program). Now, if I close my program or open the file in read-only mode, the document is empty.

Here's the code I used:

$MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
$where = FileSaveDialog("Plan Speichern", $MyDocsFolder,"Rich Text Files (*.rtf)", 2)
If StringInStr($where,".rtf") Then
    _FileCreate($where)
    $infile =  _GUICtrlRichEdit_StreamToFile($Edit1, $where)
Else
    $where = $where & ".rtf"
    _FileCreate($where)
    $infile =  _GUICtrlRichEdit_StreamToFile($Edit1, $where)
EndIf

Why is the document locked and has no content?

[Reinhardt1julian]

I really have no idea why it doesn't work, I think it worked like a year ago or so, but now I have this weird problem. Doesn't anyone know how to fix it?

[water]

If you end your script, does Word properly open the document?

[FireFox]

Please post your entire script so we can try it.

Br, FireFox.

[Reinhardt1julian]

@water It doesn't show a warning message but the document is empty

@FireFox the entire code is 1800 lines, so that is way to much to post it here. But I can make an examplescript so you can try. Please wait a moment

Edit: Weird it works in my test script

Edited February 26, 2014 by Reinhardt1julian

[Reinhardt1julian]

I made a testscript and copied the necessary parts from my original script and it worked...

Edited February 26, 2014 by Reinhardt1julian