[VB 6.0] In Textdateien speichern

[slaughty]

Hallo,

ich habe ein kleines Problem. Und zwar will ich testweise eine Variable in eine Textdatei schreiben, hier mal der Codeschnipsel:

Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Open ("c:\bla\bla.txt") For Output As "#1"
Write #1, a
Close #1
End Sub


Der Ordner und die Textdatei existieren, ich bekomme allerdings als Fehlermeldung einen "Type mismatch" in der Open-Zeile.

Vielleicht hat einer von euch eine Idee, mein VB-Buch von 98 schweigt sich aus.

Österliche Grüße,

Simon

[slaughty]

Problem gefunden, die erste Raute war zuviel *kopf->tisch*.

[Juerg]

Private Sub Command1_Click()

Dim a As String
Dim n As Long

n = FreeFile
a = Text1.Text

Open App.Path & "\bla.txt" For Output As #n
Write #n, a
Close #n

End Sub