title image


Smiley Re: Routine will nicht in Datei schreiben....
 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-Dateien (*.ini)|*.ini|Alle Dateien (*.*)|*.*"            .FilterIndex = 0            .CancelError = True            .ShowSave            Dateiname = .FileName        End With    Else        Dateiname = App.Path + "\Pfade.ini"        DateiNr = FreeFile    End If     If Len(Dir$(Dateiname)) Then        ' die Datei existiert bereits. Also erstmal löschen.        Kill Dateiname    End If     DateiNr = FreeFile()     Open Dateiname For Output As DateiNr    Print #DateiNr, txtEingabe.Text    Close DateiNr    flgSpeichernUnter = False    flgÄnderung = False     frmEditor.Caption = cdlDialog.FileName    Exit Sub ErrSpeichern:    Select Case Err.Number    Case cdlCancel 'Abbruch durch Anwender    Case Else 'für andere Fehler Meldung        MsgBox "Fehler " & Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Fehler!"    End Select    Unload frmEditorEnd Sub'-------------------------------------------------- 
Thomas Prötzsch

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: