Re: Wie speicher ich eine zuvor geöffnete Datei ?

[Carsten Jonas]

Hallo Johannes

Am 04.04.2008 um 16:29 schrieb Johannes Ungerer:

Sub Action()
Dim inhalt as String

Dim OpenDoc as New FolderItem
Dim SaveDoc as New FolderItem

Dim instream as TextInputStream
Dim oustream as TextOutputStream

OpenDoc=GetOpenFolderItem("text")
instream=OpenDoc.OpenAsTextFile
inhalt=instream.ReadAll
instream.Close

inhalt=inhalt + "Testtext"

SaveDoc=OpenDoc
oustream=SaveDoc.CreateTextFile
'--> oustream=Nil, denn es wird nicht erzeugt (Warum?)
oustream.Write inhalt
'--> Laufzeit-Fehlermeldung: NilObjectException
oustream.Close
End Sub


Am FileType "text" kann's nicht liegen, der ist wirklich absolut  
richtig eingestellt.


Bei mir läuft Dein Code einwandfrei, egal ob mit new oder ohne new  
folderitem.. MacOsx, RB 05/7..

Passen die Rechte des zu öffnenden Files?

Gruß

Carsten