Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Hi Dieter, hier der Quelltext
Autor: Senbei
Datum: 20.09.01 14:37
Hi Dieter, ich dacht machste mal nen neues Thema auf weil das alte so lang wurde. Hier also der gesammt Quelltext. Ich habe nämlich immer noch ein Problem: Private Sub mnuspeichern_Click() Dim dateiname1 As String If txttextfenster.Text <> "" Then If Caption = "MyText - Unbenannt00" Then frmspeichern.Show Else dateinummer = dateinummer + 2 dateiname1 = Mid$(Caption, 10) Open dateiname1 For Output As dateinummer '<- und zwar in der Zeile! Print #dateinummer, txttextfenster.Text 'Fehlermeldung:dateiname oder - Close dateinummer 'nummer falsch End If Else MsgBox "Es ist kein Text zum Speichern vorhanden!" End If End Sub Weißt du was ich falsch gemacht habe? CU Tristan

Hi Dieter, hier der Quelltext

50

Senbei

20.09.01 14:37

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen