title image


Smiley Routine will nicht in Datei schreiben....
Hi,



versuche gerade einen eigenen kleinen Editor zu schreiben und irgendwie speicher mir das Programm nicht in die Datei zurück, die ich angegeben habe.

Die Datei ist immer die gleiche und vordefiniert.



Die sub sieht so aus:



Private Sub DateiSpeichern()

Dim Dateiname As String

Dim DateiNr As Integer



On Error GoTo errspeichern



If flgSpeichernUnter = True Then

'MsgBox "Speichern Unter"

With cdlDialog

.DialogTitle = "Datei speichern"

.Flags = cdlOFNExplorer + cdlOFNOverwritePrompt + cdlOFNPathMustExist

.InitDir = App.Path

.Filter = "*.ini |*.ini|*.* (Alle Dateien)|*.*"

.FilterIndex = 0

.CancelError = True

.ShowSave

End With





Open Dateiname For Output As DateiNr

Print DateiNr, txtEingabe.Text

Close DateiNr

flgSpeichernUnter = False

flgÄnderung = False



Else

Dateiname = App.Path + "\Pfade.ini"

DateiNr = FreeFile



Open Dateiname For Output As DateiNr

Print DateiNr, txtEingabe.Text

Close DateiNr

flgSpeichernUnter = False

flgÄnderung = False

End If

frmEditor.Caption = cdlDialog.FileName

Exit Sub

errspeichern:

Select Case Err.Number

Case cdlCancel 'Abbrechen

Case Else 'für andere Fehler Meldung

MsgBox "Fehler " & Err.Number & ": " & Err.Description, vbOKOnly + vbExclamation, "Fehler!"

End Select



Unload frmEditor

End Sub



was habe ich da übersehen???



Danke schon mal

gruß

ypsilon

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: