Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Es willeinfach nicht
Autor: Oli Spiess
Datum: 11.10.02 18:05
Ich habe eine List Box, diese fülle ich schö brav. Die kann ich dann mit einem cmdButton auch speichern als MeineListe.txt Private Sub Command25_Click() 'ListeSpeichern List1, App.Path & "\MeineListe.txt" End Sub Mit einem Command Dialog funktioniert es aber nicht, warum?? Hier der Codezum Button: Private Sub Command25_Click() ' wird im "CommonDialog" auf "Abbrechen" geklickt, ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst. Dim F As Integer On Error Resume Next With CommonDialog1 .CancelError = True ' Hinweis, falls Datei bereits vorhanden ' weitere Flags-Eigenschaften finden Sie in der MSDN .Flags = cdlOFNOverwritePrompt ' Filter setzen - hier wird festgelegt, unter welchem ' Format eine Datei gespeichert wird. .Filter = "Textdateien (*.txt)|*.txt" ' Dialogfeld Speichern anzeigen .ShowSave If .FileName <> "" Then F = FreeFile Open .FileName For Output As #F Print #F, ListeSpeichern; List1 Close #F End If End With End Sub und hier noch das dazugehörige Modul: ' Modul: Public Sub ListeSpeichern(Liste As ListBox, ByVal sFile As String) Dim F As Integer Dim I As Integer F = FreeFile Open sFile For Output As #F With Liste For I = 0 To .ListCount - 1 Print #F, .List(I) Next I End With Close #F End Sub

Es willeinfach nicht	64	Oli Spiess	11.10.02 18:05
Re: Es willeinfach nicht	216	Dieter	11.10.02 18:25
vielen vielen Dank. es geht! (o.T.)	24	Oli Spiess	11.10.02 18:27

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